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1° CONCORSO 
SINCLUB 1984-85 

I Sinclair Club e i Sinclairisti sono spes- 
so vere e proprie fonti di idee per il mi- 
glior impiego del nostro beneamato 
spectrum; è un peccato che la maggior 
parte di queste idee restino nel casset- 
to, o nel migliore dei casi vengano resi 
noti alla ristretta cerchia degli amici. 

Uno degli scopi del Sinclub è proprio 
quello di dare le ali a chi le merita. Da 
qui l’idea di un concorso a premi, orga- 
nizzato dalla J.C.E., aperto a tutti. Il 
concorso inizierà il 1° Aprile e termi- 
nerà Il 31 Dicembre 1984; tutti 
potranno inviare alla redazione di 
Sperimentare con l'Elettronica e 
il Computer entro il suddetto perio- 
do loro programmi più interessanti ed 
originali. 


I programmi devono essere me- 
morizzati su cassetta e devono esse- 
re spediti alla redazione di Sperimen- 
tare con l’Elettronica e il Computer al 
seguente indirizzo: 


J.C.E. - CONCORSO SINCLUB 
VIA DEI LAVORATORI, 124 
20092 CINISELLO BALSAMO (MI) 


COME FUNZIONA IL CONCORSO? 


Prima di entrare nel dettaglio del Regolamento che per altro consigliamo di 
leggere attentamente, descriviamo il meccanismo di questo strabiliante con- 
corso, organizzato dalla J.C.E. 

Ci preme innanzitutto chiarire che la Giuria è il pubblico, ossia i lettori di 
Sperimentare con l’Elettronica e il Computer, e ciò sottolinea la filosofia di 
dialogo e di fiducia, in cui la redazione non si pone, come in altri casi spesso 
avviene, nella presuntuosa posizione di infallibilità! 

Ogni mese a partire dal numero di Giugno 1984, la rivista pubblicherà i quat- 
tro migliori programmi pervenuti in redazione, e giudicati dalla nostra com- 
missione tecnica. I lettori troveranno quindi i listati di questi quattro program- 
mi ed un tagliando sul quale scriveranno il titolo del programma che sarà 
parso più meritevole, per qualsiasi motivo. 

Fra tutti i lettori che avranno inviato il tagliando sarà estratto, ogni mese, un 
computer Sinclair Spectrum 16 K!!! 

Questa procedura si ripeterà per sei mesi, quindi sui numeri di Giugno, 
Luglio/ Agosto, Settembre, Ottobre, Novembre e Dicembre, quindi ogni mese 
saranno pubblicati quattro programmi, il tagliando da spedire e fra i tagliandi 
sarà estratto uno Spectrum 16 K. 

Alla fine di questa prima fase usciranno, dunque sei programmi classificati al 
primo posto in ciascuna delle sei “batterie”. 

Noi li sottoporremo al giudizio dei lettori, pubblicando sul numero di Marzo 
1985 un nuovo tagliando sul quale andranno indicati, in ordine di preferenza, 
tutti i sei programmi. I primi tre saranno premiati, e fra i lettori sarà estratto di 
nuovo uno Spectrum 16 K. 

Mica male, eh, che ne dite? 

Il regolamento è riportato sulla rivista “Sperimentare con l’Elettronica e il 
Computer”. 
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NON 

(IN ABBONAMENTO 

UN SUPERABBONAMENTO 


Questo è ciò che la J.soft ti offre: un superabbonamento ad una rivista! 
Una eccezionale offerta di lancio: 15 numeri di SUPERSINC ad un prezzo 
di 10 oltre la possibilità esclusiva di ricevere mensilmente, con la copia 
della rivista, il supporto magnetico con tutti i programmi pubblicati. 
L’offerta è valida fino al 31/8/1984. 



LE NOSTRE SUPERPROPOSTE ABBONAMENTI 

Abbonamento* a 15 numeri (4 nel 1984 + 11 nel 1985) 
di SUPERSINC al prezzo speciale di L. 35.000 
anziché L. 56.000. 

Abbonamento* a 15 numeri di SUPERSINC + 15 cassette 

con tutti i programmi pubblicati al 

prezzo speciale di L. 75.000, anziché L. 120.000. 


^L’abbonamento decorrerà dal prossimo numero 


Abbonarsi è semplice! Effettuate il versamento con l’apposito modulo 
c.c.p. inserito in questo fascicolo, oppure ritagliate il tagliando 
abbonamenti pubblicato in questa pagina e speditelo allegando un 

assegno intestato a: 

J .soft - Via Rosellini 12 - 20124 Milano. 


Tagliando abbonamento a SUPERSINC da inviare in busta chiusa a: 
J .soft • Via Rosellini 12 - 20124 Milano 


□ Desidero sottoscrivere un abbonamento a 15 numeri (4 nell 984 + 11 nel 1985) di SUPERSINC al 
prezzo speciale di L. 35.000 anziché L. 56.000. 

□ Desidero sottoscrivere un abbonamento a 15 numeri (4 nel 1984 + 1 1 nel 1985) di SUPERSINC 
+ 15 cassette con tutti i programmi pubblicati al prezzo speciale di L. 75.000 anziché L. 120.000. 


cognome 


nome 


via 


città 


cap. 

provincia 


data 

firma 

Contanti allegati 

Assegno allegato n° 


Ho spedito l’importo a mezzo vaglia postale 


Ho versato l'importo sul ccp. n° 19445204 intestato a Technoclub • Milano 



- vrete tutti seguito l’evolversi delle riviste nel settore della “piccola in- 
/Yformatica”, quella del personal e home computer per intenderci. Molti 
editori hanno rivolto il proprio interesse alla diffusione di riviste su cassetta 
che, tra l’altro, hanno riscosso da parte del pubblico un certo successo. Poi 
l’escalation al vertiginoso ritmo di una nuova testata la settimana. 
Tralasciando volutamente i discorsi circa la provenienza del materiale con 
cui alcuni di questi prodotti vengono confezionati (qualcuno, prima o poi, 
se ne accorgerà e allora... ) passiamo a rispondere alla domanda che legitti- 
mamente ci potreste porre: “e voi...?”. 

Dal canto nostro abbiamo scelto il tradizionale supporto cartaceo per tutta 
una serie di motivi che, per quanto soggettivi, ci hanno trovato, in redazio- 
ne tutti d’accordo. 

L’utilizzo del computer, qualunque esso sia, richiede una certa manualità e 
tale attributo si acquisisce solo mettendo mano alla tastiera, meglio se per 
battere un buon programma. 

Ci sono a questo punto due modi di digitare un programma: il modo “sco- 
piazzo” e il modo intelligente; praticando il primo l’arricchimento personal- 
culturale sarà alquanto scarso; nel secondo caso invece, quello intelligente, 
il programma, preso in qualche caso a pretesto, sarà assai utile alla com- 
prensione del linguaggio, del modo in cui il calcolatore lavora, ecc. ecc. 
Eseguire la battitura di un programma cercando di capire il perché di una 
particolare istruzione e sforzandosi di comprendere il significato è certa- 
mente uno dei migliori modi per avvicinare e capire la propria macchina. 
C’è poi, per i più “tosti” (mi pare che il gergo preveda tale termine per defi- 
nire i più bravi) la possibilità di porre mano al programma modificandone il 
funzionamento a proprio gusto. 

In ogni caso per chi non dovesse condividere la nostra filosofia c’è sempre 
la possibilità dell’abbonamento che, oltre alla rivista, prevede la cassetta 
con i programmi pronti all’uso. 

Ben vengano quindi le pubblicazioni “pret-a-porter”; noi, fedeli a quello che 
da sempre è il mezzo più efficace per l’apprendimento, proponiamo il soft- 
ware su carta che richiede sì un maggior lavoro per l’utente ma... vuoi met- 
tere poi la soddisfazione?!! 

Pietro Dell’Orco 
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Piccola guida 
alFinput 
dei programmi 


- programmi pubblicati da SGPERSIMC sono stati 
1 accuratamente provati e verificati. In questo mo- 
do speriamo di avere ridotto al minimo la possibilità 
di errori. 

Mei caso comunque un programma dovesse presen- 
tare malfunzionamenti, pubblicheremo le modifiche 
da apportare in uno dei numeri immediatamente suc- 
cessivi della rivista. 

Per utilizzare i programmi pubblicati è sufficiente di- 
gitare i relativi listati sulla tastiera del calcolatore. 
Mei caso dello ZX SPECTRGM, abbiamo previsto una 
semplice decodifica dei tasti da digitare nel modo 
grafico, per semplificare la comprensione dei listati. 
Come è noto, lo SPECTRGM è provvisto di 2 serie di 
tasti grafici: una prima serie di 16 caratteri grafici 
predefiniti (i tasti numerici da 1 a 8 e gli stessi “sfrit- 
tati”) e una serie di caratteri definibili dall’utente 
nell’ambito di un programma (le lettere da A a G). 

In entrambi i casi, per ottenere i caratteri desiderati 
occorre entrare in modo grafico (cursore contrasse- 
gnato dalla lettera G lampeggiante) premendo con- 
temporaneamente i tasti CAPS-SHIFT e 9. 

Mei nostri listati i caratteri grafici predefiniti sono in- 
dicati da una Q seguita dal numero corrispondente al 
testo che occorre digitare, il tutto racchiuso tra due 
parentesi graffe. 


Ad esempio |G4| significa che occorre digitare il ta- 
sto 4, con il cursore in modo grafico. 

Analogamente la codifica SG, seguita da un numero 
da 1 a 8, significa che occorre digitare il relativo ta- 
sto numerico premendo contemporaneamente il ta- 
sto CAPS-SHIFT. 

Ad esempio quando si trova la codifica |SG2|, occor- 
re premere il tasto 2 contemporaneamente al tasto 
CAPS-SHIFT, ovviamente con il cursore in modo gra- 
fico. In entrambi i casi precedenti, quando un simbo- 
lo grafico deve essere digitato più volte, i caratteri G 

0 SG della codifica sono preceduti da un numero che 
specifica quante volte va premuto il tasto grafico in- 
dicato. 

Così ad esempio |8G5| significa che il tasto grafico 5 
va digitato 8 volte e analogamente |4SG 1 } indica che 
il tasto grafico 1 e CAPS-SHIFT devono essere battu- 
ti 4 volte. 

1 caratteri grafici definibili (le lettere da A a G in mo- 
do grafico) hanno una codifica semplificata: la lette- 
ra corrispondente, sottolineata. 

Quando in un listato viene presentata, ad esempio, 
una A sottolineata, occorre entrare in modo grafico 
(al solito premendo contemporaneamente i tasti 
CAPS-SHIFT e 9) e quindi digitare semplicemente il 
tasto che contrassegna la lettera A. 


Quando leggete |[ Premete 

Vedrete 


Quando leggete | 

Premete 

Vedrete 


{Gl} 
{G2} 
{G3 } 
{ G 4 } 
{ G 5 } 
{G6 } 


eh 


s 


i 


A 

B 

C 

D 

E 

F 


Simbolo grafico 
definito nel 
programma in uso. 


{ G 7 } 

1 

TU 


{G8 } 

1 

« 1 1 


{ SGl } 


1 CAPS 

m 


1 sraa — 1 

{SG2} 

Se non siete 
già in modo 

G, entrateci 
schiacciando 
contempora- 

| CAPS 

1 SHIFT 1 

i 2 pi 

{ SG3 } 

[ CAPS 

1 SHIFT 1 

I 3 H 

{ SG4 } 

neamente 
CAPS SHIFT 
e 9 

| CAPS 

1 SHIFT j 

l 4 .. LjJ 

{ SG5 } 

[ CAPS 

i 5 n 


L SH1E1 — 1 

li LI 

{SG6 } 


| CAPS 1 

1 SHIFT 1 

IlJU 

{SG7 } 


f CAPS | 

1 SHIFT | 

m 

{ SG8 } 


[ CAPS j 

1 SHIFT 1 

h i i 


□ 


I 

* 



Se dovete 
uscire dal 
modo G, 
schiacciate 9 


G 

H 

I 

J 

K 

L 

M 

N 

O 

P 


G 


H 


I 


Se non siete 
già in modo 
G, entrateci 
schiacciando 
contempora- 
neamente 
CAPS SHIFT 
e 9 


M 


N 


O 


P 


Se dovete 
uscire dal 
modo G, 
schiacciate 9 
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C ari lettori, 

dati i ristrettissimi tempi di stampa e l’anticipo con cui viene redatta que- 
sta rubrica, anche per questo numero restiamo in trepida attesa dei vostri 
primi contributi. 

Mentre attendiamo, abbiamo pensato di fornirvi ugualmente qualcosa di in- 
teressante - almeno speriamo: una piccola raccolta di “chicche” (minipro- 
grammi, bug, trucchi e così via) come al solito tratti dalle migliori riviste in- 
glesi. 

A risentirci presto e buone vacanze a tutti! 

La redazione 


Patterniamoci! 

Caro SUPERSINC, 

credo che i lettori potrebbero essere 
interessati a un piccolo programma 
generatore di pattern che ho scritto per 
il mio ZX81 (e, ho adattato per lo Spec- 
trum). Entrambi i programmi produco- 
no pattern casuali, che non è difficile 
modificare cambiando a piacere i valo- 
ri di A$, Y e/o X. 

Per avere la stampa dei pattern, basta 
aggiungere ai programmi due linee del 
tipo 

280 IF INKEY$ = “”THEN GO TO 280 
285 IF INKEY$ = “Z” THEN COPY 
Spero che i programmi vi facciano di- 
vertire per un po’! 

Fedelmente vostro 
B.J. Funnell - Watford. 


10 RANDOMIZE 

20 LET a$=" {SG5}{SG3}{G3}{G5}" 

100 LET y=5 
110 DIM c$ (y) 

120 FOR j=l TO y 

130 LET x= INT (RND*4)+1 

140 LET c$ ( j ) =a$ (x) 

150 NEXT j 

170 PRINT AT. 21, 30;" " 

180 PRINT AT 21 , 30 ; y 
190 PRINT AT 0,0; 

200 LET v= INT (704/y) 

205 LET w=704- (v*y) 

210 FOR k=l TO v 
220 PRINT c$ ; 

260 NEXT k 

270 PRINT c$(l TO w) 

290 GO TO 100 


10 RANDOMIZE 

20 LET a$="{Gl}{G3}{G5}{G7} 
{G2}{G4}{G6}{G8}{SG8}{SG6} 
{SG4} {SG2} {SG7} {SG5} {SG3} 
{SGl} { G 8 } { G 2 } { G 7 } { G 3 } { G 6 } 

{ G 4 } {G5} {SG5} { SG6 } { SG4 } 

{ SG3 } {SG2}{G7}{G2}{G6}{G2} 
{ G 6 } { G 4 } {SG4} {SG5}{SG2} 
{SG5 } { SG4 } { SG3 } {SG5} { G 4 } 
{G2} {G8>{G6} {G5} { SG4 } { SG5 } 
{SG7 } " 

50 LET n= INT (RND*12)*4+1 
60 LET b$=a$ (n TO n+3) 

100 LET y=INT (RND*64+1) 

110 DIM c$ (y) 

120 FOR j=l TO y 

130 LET x= INT (RND*4)+1 

140 LET c$ ( j) =b$ (x) 

150 NEXT j 

170 PRINT AT 21,30;" " 

180 PRINT AT 21 , 30 ;y 

190 PRINT AT 0,0; 

200 LET v= INT (704/y) 

205 LET w=704-(v*y) 

210 FOR k=l TO v 
220 PRINT c$ ; 

230 NEXT k 

240 PRINT c$(l TO w) 

250 GO TO 50 
10 FOR r=0 TO 6143 
20 POKE 16384+r ,255 
30 PAUSE 2 
40 NEXT r 


ZX81 e USR 

Egregia redazione di SGPERSINC, 
ho trovato gli indirizzi di alcune (JSR 
(Gser SubRoutine) dello ZX81 che po- 
trebbero essere utili per chi program- 
ma in linguaggio macchina o sta co- 
minciando a farlo. 


Ecco le routine con il rispettivo indiriz- 
zo decimale e l’equivalente BASIC (se 
esistente): 

3875 FAST 
3086 SCROLL 
1047 equivalente a EDIT 
930 equivalente a BREAK 
*757 SAVE 
*833 LOAD 

2955 equivalente a in PRINT 

Se il numero è preceduto da un asteri- 
sco, il computer deve essere in modo 
FAST. L’istruzione LOAD è a mio pare- 
re una delle più utili in quanto mi con- 
sente di copiare giochi dei miei amici 
per avere la possibilità di analizzarli ve- 
dendo come funzionano. 

Fedelmente vostro 

Gary Threadgold - Clwyd 


Out of memory error 

Ho notato che possono sorgere proble- 
mi con lo ZX Spectrum dopo avere me- 
morizzato e usato programmi in lin- 
guaggio macchina. 

Se si tenta di caricare, subito dopo, un 
programma ragionevolmente lungo, 
appare il messaggio ”H out of memo- 
ry, 0:1” o, se il caricamento avviene 
senza problemi, il programma si bloc- 
ca dopo il RCJN. Questo avviene perché 
di solito i programmi in linguaggio 
macchina lasciano lo Spectrum con la 
variabile di sistema RAMtop abbassata 
a un valore inferiore a quello consueto. 
Anche dopo avere dato NEW o EN- 
TER, la macchina crede di disporre di 
meno memoria di quanto in realtà pos- 
sieda. 

La soluzione più semplice è quella di 
spegnere e riaccendere, cancellando 
dalla memoria anche il linguaggio 
macchina; oppure digitare CLEAR 
32767 (65535 per i 48K). Gn altro si- 
stema (quello che uso io) è quello di 
dare RGN GSR 0. 

Jeff Warren 
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Sinclair shopping 


trad. e adatt. di Lucio Bragagnolo 


Tutto ciò che avete sempre deside- 
rato per il vostro Sinclair e non sa- 
pevate dove (e come) trovare 


I computer Sinclair sono probabil- 
mente tra quelli più forniti di softwa- 
re e periferiche dei tipi più svariati. 
Partendo dal materiale della stessa 
Sinclair (ZX Printer, espansioni di me- 
moria, Interfaccia 1, Interfaccia 2, Mi- 
crodrive...) per arrivare alle varie com- 
pagnie indipendenti, è infatti possibile 
disporre di una gamma vastissima di 
programmi e hardware per tutti gli usi 
-e tasche -ampliando in modo sensibile 
le possibilità del vostro calcolatore. 

Lo scopo di questo articolo è di darvi 
un quadro della situaione del mercato 
indipendente; per forza di cose riusci- 
remo appena a scalfirne la superficie, 
ma siamo sicuri che per molti di voi le 
notizie che leggerete saranno perlome- 
no oggetto di curiosità. Se poi decide- 
ste di effettuare realmente degli acqui- 
sti, seguite i consigli contenuti nella 
nota che abbiamo espressamente pre- 
parato e che potete leggere sempre in 
queste pagine: vi saranno di aiuto! 
Ùltima cosa: per telefonare in Inghil- 
terra, prima di comporre il numero ve- 
ro e proprio, fate 00 (prefisso per le 
chiamate internazionali) seguito da 44, 
prefisso per le chiamate in Gran Breta- 
gna. 

FIRMWARE 

EPROM per tutti 

La EPROM Services possiede un’am- 
pia gamma di prodotti per ZX81 e 
Spectrum. Al prezzo di 19 sterline c’è 
una scheda EPROM, capace di allog- 
giare fino a 8K con semplici modifi- 
che. Viene resa disponibile anche 
un’unità di autostart (9.95) che, all’atto 
dell’accensione, si porta automatica- 
mente all’indirizzo esadecimale FD00. 


Per quanto riguarda lo ZX81, ci sono 
varie EPROM con prezzo compreso tra 
9.95 e 19 sterline che possono essere 
usate per LOAD/SAVE rapidi, tool kit 
disassemblatori, set di caratteri alter- 
nativi o grafici, e altri usi ancora. Per 
altri prodotti, non menzionabili per ra- 
gioni di spazio, rivolgetevi direttamen- 
te alla EPROM Services, telefonando al 
0532/667183 o indirizzando la posta al 
3 Wedgewood Drive, Leeds LS8 1EF. 


A 
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Scheda Haven Hardware 

La Haven possiede una vasta selezione 
di schede aggiuntive, sia per Spectrum 
che per ZX81. 

Per quest’ultimo, sono a disposizione 
un generatore programmabile di carat- 
teri (15.95); un modulo per l’autore- 
peat dei tasti (3.95), I’inverse video 
(3.50) e il beep di tastiera (6.95); una 
porta di 1/0(11 .95), una tastiera ( 1 8.95) 
e altro ancora. I prezzi sono quelli dei 
prodotti in scatola di montaggio: per 
unità già montate vi è una maggiora- 
zione del 25% circa. Per ulteriori infor- 
mazioni, scrivete al 4 Asby Road, 
Asby, Workington, Cumbria CAM 
4RR o telefonate al 094/686627. 

Sempre più Forth 

Molto interessante questo accessorio 


per lo Spectrum - una cartuccia ROM 
contenente 12K di Fig-Forth, un’inter- 
faccia RS232 VIA 8251 e 24 bit di 1/0 
paralleli VIA 8255. 

La ROM BASIC viene esclusa e rim- 
piazzata dalla ROM Forth, che contie- 
ne tutte le istruzioni standard del Fig- 
Forth. Il dispositivo offre anche un si- 
stema operativo Forth multitasking, 
un assembler Z80 per definizioni Forth 
in linguaggio macchina, la possibilità 
di supportare un modem, un generato- 
re di baud rate per la RS232 con con- 
trollo al quarzo, un monitor per codice 
macchina, routine per stampanti 
RS232 e Centronics e 4K di ROM per 
aggiunte successive. 

Il package viene venduto a 59 sterline 
+ VAT (il corrispondente dell’IVA). 
Per informazioni più dettagliate, con- 
tattate David Husband, 2 Gorleston 
Road, Branksome, Poole BH12 INW. Il 
telefono è 0202/764724. 



Scusi, sa l’ora? 

Il Time Controller della Glanmire Elec- 
tronics consiste in un orologio alimen- 
tato a batterie con otto entrate e otto 
uscite, tutte programmabili. 

Grazie alle istruzioni contenute nella 
sua PROM, per leggere - o scrivere - 
mese, data, giorno, ore, minuti, secon- 
di è necessaria una sola istruzione. Il 
Time Controller dispone anche di un 
connettore di espansione utile per il 
collegamento di altre periferiche. Il 
prezzo si aggira sulle 34 (ZX81) o 38 
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sterline (Spectrum). Se siete interessa- 
ti, scrivete a Glanmire Electronics, We- 
stely House, Trinity Avenue, Bush Hill 
Park, Enfield ENI 1PH, o telefonate al 
01/3363245. 



One slot beyond... 

La MGKBGS Card Frame System si at- 
tacca al connettore posteriore dello 
Spectrum, dotandolo di una scheda 
madre con sei slot di espansione. Tra 
le opzioni possibili offerte dalla Micro- 
text, segnaliamo due floppy disk con- 
troller, interfaccia RS232/Centronics, 
video a 80 colonne, 64K RAM e un let- 
tore di codice a barre. Prezzo della 
scheda 59.95 per l’alimentatore. Con- 
tattate Microtext GK Ltd, Highland 
House, 20-24 John St, Luton, Beds 
(tei. 0582/418894). 



IN BREVE 

Un’altra EPROM... 

La EPROM Card della Orme Electro- 
nics può fornire diverse facilitazioni 
per i vostri programmi BASIC. Con la 
EPROM inserita nello spazio normal- 
mente dedicato alla ROM dello Spec- 
trum, avete a disposizione 10 routine 
extra per renumber, editing, operazio- 
ni sui caratteri e così via. Il prezzo è di 
9.95 sterline. Per informazioni contat- 
tate la Orme Electronics, 2 Barripper 
Road, Camborne, Cornwall TRI 4 7QN 
o telefonate al 0209/715034. 

...e un’altra ancora 

Il modulo MZ-8 è progettato per l’inter- 


facciamento con lo ZX81 ed è dotato 
di due funzioni, selezionabili tramite 
interruttori presenti sulla scheda. La 
prima consente di immagazzinare con- 
temporaneamente in memoria - fino 
all’occupazione totale di 6K - un massi- 
mo di 10 programmi in BASIC e/o in 
linguaggio macchina; la seconda forni- 
sce 6K di memoria extra. Il software ri- 
siede in una EPROM di 2K, che per- 
mette anche una opzione di monitor. 
MZ-8 viene venduto a 44.90 sterline; 
potrete saperne di più scrivendo a 
Micro-Z Ltd, PO Box 83, Exeter, Devon 
EX4 7AF. 

Se siete «espansivi» 

Specspansion è una scheda madre a 
quattro slot per lo Spectrum. Si con- 
nette direttamente al retro dello ZX, e 
permette il collegamento con più peri- 
feriche. Per una spesa intorno alle 30 
sterline, riceverete il package comple- 
to comprensivo di software. 

L’indirizzo è FB Tronic, Gnit 2, Park 
Brook Industriai Estate, Park Strett, 
Lye, Stourbridge, West Midlands DY9 
8SS. 

adattatori per tutti 

Stephen Adams è in grado di fornirvi 
alcune interessanti realizzazioni per 
Spectrum e ZX81. Partiamo dallo 
Straight Adaptor, capace di dotare lo 
Spectrum della stessa porta di espan- 
sione dello ZX81 senza però effettuare 
conversioni di indirizzi di memoria. 
Adams ha anche sviluppato gli Adam 
and Ève Adaptors: il primo vi permette 
di collegare allo Spectrum 16K qua- 
lunque RAM pack compatibile Sinclair 
(normalmente attaccabile solo allo 
ZX81), mentre il secondo consente la 
connessione allo Spectrum 48K di 
qualsiasi periferica che operi nei primi 
1 6K di memoria dello ZX8 1 . Dovrebbe 
essere disponibile anche una seconda 
versione, più versatile, di Adam deno- 
minata Adam II Adaptor; il prezzo è di 
9 sterline cadauno. Gn altro dispositi- 
vo è l’RZl, costo 20 sterline, disponibi- 
le per entrambi i computer, che dà la 
possibilità di controllare via software 
le operazioni di LOAD/SAVE (e relati- 
ve operazioni coi cavetti di collega- 
mento). Altri dettagli sono ottenibili 
telefonando al 01/2541869 o scriven- 
do a Stephen Adams, 1 Leswun Road, 
London N16 7NL. 


Dulcis in fundo... 

La scheda di interfaccia della Intercep- 
tor Micros è progettata per connettere 
joystick tipo Atari allo ZX Spectrum. 
Può ospitare due joystick e altre perife- 
riche. Corredata da istruzioni detta- 
gliate e da una cassetta dimostrativa, è 
reperibile presso Interceptor Micros, 
Lindon House, The Green, Tadley, 
Hants. 


MEMORIE INTERNE ED 
ESTERNE 


sembra arabo!... 

A puro titolo di curiosità vi segnaliamo 
l’esistenza di un dispositivo che, inseri- 
to tra lo ZX81 e un’espansione di me- 
moria, fornisce un completo set di ca- 
ratteri, funzioni e istruzioni BASIC 
in. ..arabo. Il tutto è completato da una 
mascherina sovrapponibile alla tastie- 
ra e da un esauriente manuale di istru- 
zioni. Pensiamo che questa notizia in- 
teressi un numero estremamente ri- 
stretto di lettori (forse anche meno...); 
tuttavia vi diamo lo stesso l’indirizzo 
della casa costruttrice, di cui non co- 
nosciamo il nome: PO Box 147, Jed- 
dah, Saudi Arabia. 



tutto, ma proprio tutto 

L’Organic Micro è costituito da una se- 
rie di moduli sovrapponibili, e com- 
prende una serie di espansioni funzio- 
nanti con ZX81 e Spectrum. La base 
(anche in senso fisico) del sistema è 
l’interfaccia Persona, direttamente col- 
legata al calcolatore, su cui successiva- 
mente sono innestabili i vari moduli. 
L’elenco di questi comprende espan- 
sioni di memoria, interfaccia Centro- 
nics, porte I/O, memorizzazione non 
volatile di programmi, Utilities grafi- 
che e perfino il Sonus, un nuovo pac- 
kage che comprende un versatile sin- 
tetizzatore di suoni. 

Tra i progetti futuri della società figu- 
rano, tra l’altro, un’interfaccia per flop- 
py disk, un controller per joystick e un 
programmatore di EPROM. 

Il modulo Persona costa 39.50 sterline, 
mentre gli altri variano dalle 22.20 alle 
41.75. Per mettervi in contatto con la 
BASICare Microsystems telefonate al 
01/3852135 o scrivetele presso 12 Ric- 
kett Street, London SW6 1RG. 

IN BREVE 

se volete i floppy 

Compatibilità con i drive Shugart da 
5“ 1/4 a singola o doppia densità e con 
i drive giapponesi da tre pollici e mez- 
zo, il tutto per lo ZX81: ecco cosa offre 
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IN BREVE 



il floppy disk controller della Analo- 
gue Information Systems, al prezzo di 
40 sterline circa. Potrete saperne di 
più scrivendo al 43 Gilmour Road, 
Edinburgh 16 o telefonando al 
031/6676862. 

Technology Research Ltd. 

La Technology Research Ltd. ha an- 
nunciato la disponibilità di una inter- 
faccia per floppy disk per lo Spectrum, 
compatibile con i drive standard Shu- 
gart o con i nuovi drive per microflop- 
py. Telefonate per informazioni al 
01/6995332; l’indirizzo è 57 Brockley 
Rise, London SE23. 

INTERFACCE 

stampanti Tandy... 


go un metro, si attacca sul retro del 
computer. Il software fornito permette 
l’uso delle funzioni LLIST e LPRIMT, il 
COPY dello schermo e lo sfruttamento 
della massina ampiezza di stampa ot- 
tenibile, senza cioè la limitazione di li- 
stati e testo “formato video” a 32 co- 
lonne. 

L’interfaccia, utilizzabile anche dagli 
Spectrum 16K non espansi, è piena- 
mente compatibile con famoso word 
processing Tasword II e, con marginali 
modifiche, col Vu-Calc Psion. 

Il package completo è in vendita a 45 
sterline. Rivolgetevi per maggiori in- 
formazioni alla Kempston Micro Elec- 
tronics, 180 A Bedford Road, Kemp- 
ston, Bedford MK42 8BL scrivendo, 
oppure telefonando al 0234/852997 

Advanced Digital Systems 


L’interfaccia Softest permette a Spec- 
trum e ZX81 di connettersi alla stam- 
pante semi intelligente Tandy CGP- 
115. 

L’interfaccia consente di stampare te- 
sti e grafica, variando i formati di rap- 
presentazione. È fornita di software, 
scritto in linguaggio macchina, e costa 
35 sterline. La Softest fornisce anche 


Tra i prodotti della ADS figura una in- 
terfaccia Centronics per Spectrum e 
ZX81. 

Fornita con una garanzia di 12, l’inter- 
faccia riconosce i comandi BASIC 
LLIST e LPRIMT. Il prezzo è di 34.50 
sterline, l’indirizzo è 9 Bonchurch 
Road, Portsmouth, Hanz P04 8RY, il 
telefono è 0705/823825. 



del software addizionale per consenti- 
re il COPY dello schermo. Scrivete al 
10 Richmond Lane, Romsey, Hants 
S05 9 LA. 


...e Centronics 


Questa interfaccia rende possibile l’in- 
terfacciamento dello Spectrum con 
stampanti tipo Centronics. 

Dotata di un cavo di collegamento lun- 


tutto e subito 

La Morex ha riunito due interfacce, 
una RS232, e una Centronics in una 
sola scatola, con versioni per ZX81 e 
Spectrum. A un prezzo di 39.95 sterli- 
ne. Diventa possibile stampare su tutta 
la larghezza della stampante in uso, 
utilizzare le istruzioni LLIST e LPRIMT 
e selezionare il baud rate ottimale la 
versione Spectrum possiede un siste- 
ma operativo residente, così da assicu- 
rare la compatibilità con i package di 
word processing. Per quanto riguarda 
lo ZX81, è disponibile software per 
l’uso di word processing e di utility 
grafiche. Mettetevi in contatto con la 
Morex Peripherals Ltd telefonando al 
0734/478854 o scrivendo al 2 Baliol 
Road, Caversham, Reading, Berks. 

perfino il word processor 

La Hilderbay ha prodotto un interfac- 
cia per lo Spectrum, completa di soft- 
ware scritto in BASIC e in linguaggio 
macchina, comprendente una routine 
per ottenere la stampa dello schermo e 
un mini word processor Tasword. Il 
prezzo è di 45 sterline; maggiori detta- 
gli possono essere richiesti alla Hilder- 
bay Ltd, 8-10 Park Way London MW1 
7AA. È possibile anche effettuare ordi- 
ni telefonici allo 01/4851059. 

quasi niente... 

Una interfaccia parallela è ciò che 
ugualmente offre la Euroelectronics, 
questa volta però a “sole” 30 sterline. Il 
software fornito permette, al solito, 
l’uso dei comandi LLIST e LPRIMT, ma 
necessita di aggiunta per l’abilitazione 
del COPY (disponibili, su richiesta). 
Scrivete alla Euroelectronics, SI in 
House, Oakfield Street, Cheltenam, 
Glos GL50 2CIJ. 

...quasi tutto! 

La Cobra Technology ha sviluppato 
due interfacce per lo ZX81, per la con- 
nessione a stampanti seriali RS232 o 
parallele Centronics, con possibilità di 
variazione del baud rate da software. 
Entrambe le interfacce costano 26 
sterline - VAT esclusa - e sono reperibi- 
li al 378 Caledonian Road, Islington, 
London MI IDY. 

TASTIERE 

Dk’tronics 

La Dk’tronics dispone di una tastiera 
applicabile a ZX81 o Spectrum. Que- 
sta ha 52 tasti, di cui 12 riuniti a forma- 
re un tastierino numerico. Potrete sa- 
perne di più rivolgendovi direttamente 
alla Dk’tronics, Unit 2, Shire Hill Indu- 
striai Estate, Saffron, Walden, Essex 
CBN 3AX, per posta o telefonando 
(0799/26350). 
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Steatite Insulations 

Questa tastiera, della Steatite Insula- 
tions, consente una digitazione di tipo 
professionale. Il contenitore è del tipo 
a basso profilo, e i tasti sono inclinati 
per agevolare l’operatore. La confezio- 
ne è completa di manuale di istruzioni, 
e potrete averle per 30.95 sterline ri- 
volgendovi alla Steatite Insulations 
Ltd, Hagley House, Hagley Road, Bir- 
mingham B16 8QW. Il numero di tele- 
fono è 021/4546961. 

IN BREVE 
Possom Controls 

Esistono anche tastiere speciali per 
handicappati fisici. La Possom Con- 
trols ne offre tre, la Desk-top Scan- 
ning, la Briefcase Scanning e la Expan- 
ded Keyboard, ognuna delle quali dise- 
gnata per handicap specifici. I prezzi 
variano notevolmente col variare dei 
dispositivi dì input utilizzati: per infor- 
mazioni più dettagliate conviene scri- 
vere alla Possom Controls Ltd, Middle- 
green Road, Langley, Berks SL3 6DF o 
telefonare al 0753/79235. 

Filestixty Ltd 

Veramente basso il prezzo di questa ta- 
stiera (9.95 sterline), alloggiata in un 
contenitore di resina nera e capace di 
migliorare in discreta misura la scarsa 
ergonomicità della tastiera dello ZX81 . 
L’indirizzo della ditta produttrice (la Fi- 
lestixty Ltd) è 25 Chippenham Mews, 
London W9 2AN, mentre il telefono è 
01/2893059. 

Microtext 

Parliamo ancora della Microtext, e pre- 
cisamente della sua tastiera per ZX 
Spectrum. Commercializzata a un 
prezzo di 53.45 sterline, dispone tra 
l’altro di tasti per il controllo del curso- 
re e di un tasto di “fuoco”. Indirizzo e 
numero telefonico sono quelli già ri- 
portati a proposito del MCJKBGS Card 
Frame System, sotto la voce Firmwa- 
re. 

Fruller Micro System 

La tastiera FD42 non è stata progettata 
solamente per contenere lo ZX81 o lo 
Spectrum, ma anche per collegare pe- 
riferiche ed espansioni (famosi i joy- 
stick) della Fuller. La tastiera è di 42 
tasti, alcuni dei quali programmabili. Il 
prezzo dell’unità è di 29.95 sterline: 
per altri ragguagli rivolgetevi diretta- 
mente alla Fuller Micro Systems, The 
Computer Centre, Dale Street, Liver- 
pool 2. Per telefono, la Fuller risponde 
al 051/2366109. 


; 

Non è poi così 
difficile. •• 

di Marcello Spero 

. 'acquisto di prodotti esteri per corrispondenza normalmente suscita 
L parecchie perplessità; forte è infatti il timore di veder sfumare i propri 
sudati risparmi senza ricevere niente, e senza la possibilità di far valere 
le proprie ragioni. Tristi passate esperienze, dovute alla poca serietà di 
qualche commerciante che vendeva ciò che non possedeva, hanno por- 
tato ad un generale sfiducia, peraltro immeritata, circa questo tipo di 
commercio. L’idea che il proprio denaro venga in questo modo messo “a 
rischio” è generalmente errata, ma nel caso del mercato britannico, che 
ci interessa particolarmente in questo momento, risulta completamente 
infondata. 

Da due anni, compro abitualmente materiale di ogni tipo riguardante lo 
Spectrum direttamente dalla Gran Bretagna, a mezzo posta, senza aver 
mai avuto problemi. Nel periodo iniziale, “pioneristico” dello Spectrum, 
questa era Tunica via per entrare in possesso di libri, riviste, periferiche o 
qualsiasi altro materiale che lo riguardasse; ancora oggi, comunque, ri- 
mane un sistema di acquisto insostituibile per tutti quegli articoli che ri- 
mangono irreperibili qui da noi. 

Ecco, per tutti coloro che volessero provare, una piccola guida per mini- 
mizzare dubbi e problemi. 

Prima di tutto è conveniente scrivere alla ditta venditrice del prodotto 
che vi interessa specificando chiaramente cosa desiderate e chiedendo 
se è loro possibile inviare la merce in Italia, e quanto verrà a costare la 
spedizione. Potrete, con l’occasione, chiedere ulteriori notizie e dati tec- 
nici. Non è nemmeno il caso di ricordare che tutto questo lo dovrete scri- 
vere in inglese... Per assicurarvi la risposta includete nella vostra lettera, 
secondo l’abitudine inglese, una busta già indirizzata a vostro nome ed 
un coupon internazionale di risposta, che acquisterete all’ufficio postale 
centrale della vostra città. 

A questo punto non vi resta che attendere una risposta. Per questo calco- 
late una settimana perché vi rispondano, ed una settimana per il viaggio 
di ritorno. Quando finalmente saprete l’esatto ammontare richiesto (è 
estremamente difficile che otteniate un rifiuto) potrete recarvi all’ufficip 
postale (sempre quello centrale) per spedire un vaglia internazionale. È 
questo infatti, a mio parere, il mezzo più comodo per inviare denaro 
all’estero. All’impiegato addetto dite pure l’importo in sterline: provve- 
derà lui a calcolare il corrispettivo in lire. Nel caso, peraltro raro, di ac- 
quisti particolarmente onerosi, potrete trovarvi di fronte un limite massi- 
mo di invio, aggirabile utilizzando più vaglia. A questo punto scrivete 
un’altra lettera specificando di nuovo cosa volete, ed includete una foto- 
copia della ricevuta. In questo modo può capitare che la merce vi sia in- 
viata prima che i vostri soldi arrivino materialmente, sotto forma di asse- 
gno circolare internazionale, al destinatario (per questo può essere ne- 
cessario anche un mese). Può sembrare incredibile, ma a me è capitato 
(con la Quicksilva), e mi son visto recapitare il passo qualcosa come una 
settimana dopo aver inviato l’ordinazione. 

Per acquisti di poco conto ed ordinare subito, calcolando le maggiori 
spese per la spedizione internazionale in un paio di sterline. In questo ca- 
so, però, ricordate che se per qualsiasi motivo la cosa non dovesse fun- 
zionare, vi sarà rispedito il vostro assegno circolare in sterline e non tra- 
sferibile, e dovrete attendere tempi lunghissimi per il suo rimborso da 
parte delle poste. 

Se farete le cose con attenzione sono sicuro che non rimarrete delusi. 
Attendo le lettere di quanti vorranno provare. 


E NON È FINITA,.. 

Per questo numero la nostra velocissi- 
ma carrellata termina qui. Nel prossi- 
mo potrete leggere, tra l’altro, di joy- 
stick e sintetizzatori vocali. 


La seconda puntata di LE INTERRUZIONI, TEORIA E PRATICA 
SULLO ZX SPECTRUM verrà pubblicata nel numero 3, in edicola 
nel mese di Settembre 
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La mente di Algernon 



di J. McAllister 

trad. ed adatt. di Marcello Spero 


Insegnare a un computer: proble- 
matiche ed un esempio di microin- 
telligenza artificiale. 


L jesatta natura dell’intelligenza 
i umana, ed in particolare il modo 
dellumano apprendimento, è da anni 
oggetto di ricerca da parte di innume- 
revoli studiosi, psicologi in particolar 
modo. Più recentemente, con il pro- 
gresso dell’elettronica e l’accresciuta 
potenza degli elaboratori, la riprodu- 
zione artificiale dell’intelligenza è dive- 
nuta argomento di interesse anche per 
gli ingegneri. 

I due campi di studio furono uniti dal 
lavoro di Alan Turing, il quale pubbli- 
cò il primo studio dettagliato, in teoria 
ed in pratica, sulla capacità da parte di 
una macchina di essere in grado di gio- 
care. Con questo egli voleva illustrare 
il suo interrogativo fondamentale: può 
una macchina pensare? Turing previde 
che la realizzazione di computer suffi- 
cientemente veloci avrebbe permesso 
la “meccanizzazione” di qualsiasi pro- 
cesso mentale, idea questa che allora, 
erano gli anni cinquanta, fu considera- 
ta per lo meno rivoluzionaria, se non 
eretica. La sua morte sopravvenne pri- 
ma che la tecnologia fosse in grado di 
fornirgli i mezzi per una dimostrazione 
pratica di questa idea, ma molti altri, 
basti qui ricordare Shannon, portaro- 
no avanti ricerche simili, con il risulta- 
to che oggi è convinzione diffusa che 
sia possibile per una macchina egua- 
gliare e forse superare la capacità di ra- 
gionamento del cervello umano. 

Molti giochi possiedono una struttura 
tale da renderli un ottimo strumento 
per esaminare i processi del pensiero. 
Vanno comunque esclusi da questo 
campo i giochi di tipo “arcade” che, 
pur richiedono grande ingegno da par- 
te dei programmatori, sono troppo li- 
mitati per poter dire qualcosa sull’in- 
telligenza di tipo “meccanico”. Sono 
inoltre da escludere, ovviamente, quei 
giochi in cui il computer serve unica- 
mente da segnamosse e contapunti, 
senza avere alcun ruolo attivo. Potrem- 
mo definire il tipo di gioco in cui l’in- 
telligenza ha un ruolo fondamentale 
come una competizione dove ciascun 


giocatore deve sviluppare una strate- 
gia a lungo termine, nonché reagire 
nel breve termine con una tattica ap- 
propriata alla luce delle mosse del suo 
avversario. Giochi che soddisfano que- 
sta definizione sono il tris, cinque in fi- 
la, in nim, othello, la dama, gli scac- 
chi, e molti giochi di carte. 

All’interno di questo elenco possiamo 
operare una suddivisione in due cate- 
gorie: giochi completamente definiti e 
giochi non completamente definiti. In 
un gioco completamente definito è 
possibile predire se, dato un gioco cor- 
retto da entrambe le parti, il risultato 
sarà la vittoria del primo o del secondo 


\ 


giocatore, od un pareggio. Il tris è ap- 
punto un gioco completamente defini- 
to, in cui il secondo giocatore può 
sempre vincere o pareggiare. All’estre- 
mo opposto gli scacchi, gioco nort 
completamente definito poiché il nu- 
mero totale delle sue varianti è tanto 
ampio da non essere mai stato calcola- 
to. 

Nel caso di un gioco completamente 
definito un metodo ovvio consiste 
neH’immagazzinare tutte le possibili 
varianti, in modo che la macchina pos- 
sa rispondere valutandole tutte prima 
di muovere. Gn simile tipo di program- 
ma, sebbene anche in questo caso sia 
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richiesta una notevole capacità da par- 
te del programmatore, può essere con- 
siderato al massimo l’equivalente della 
forma più bassa di istinto animale. 

Ad un livello già più elevato c’è l’idea 
di comprimere la strategia in una sin- 
gola regola, o in un insieme di regole, 
di gioco corretto. Un esempio di que- 
sto tipo lo troviamo nel nim, dove tutta 
la strategia di gioco è contenuta nella 
regola che impone di far conservare la 
parità alla rappresentazione binaria 
della posizione. Questa tecnica può es- 
sere considerata analoga alla capacità 
umana di astrarre e generalizzare. 

Il comportamento di gioco di livello 
più elevato per una macchina lo trovia- 
mo probabilmente negli scacchi. I pro- 
grammi e le macchine per il gioco de- 
gli scacchi sono così avanzate da poter 
dare una lezione anche ad un maestro. 
Più potente è il programma, più in là 
sarà capace di guardare per analizzare 
ciascuna posizione, e più complesse 
saranno le “compressioni” delle varie 
strategie con cui è equipaggiato. 

Per meritare l’aggettivo di intelligente, 
però, non è sufficiente che una mac- 
china od un programma sappiano ana- 
lizzare, astrarre, generalizzare, ricorda- 
re e confrontare; dovranno avere la ca- 
pacità di migliorare con l’esperienza, 
cioè di imparare. Un programma che 
sappia far questo potrà arrivare a fare 
cose per cui non era stato originaria- 
mente programmato, ed è in questa di- 
rezione che si aspettano i maggiori 
progressi nel campo dell’intelligenza 
artificiale. 

Un celebre racconto di qualche anno 
fa, Fiori per Algemon, narrava di un ra- 
gazzo mentalmente insufficiente tra- 
sformato per un breve periodo in un 
genio, per ripiombare subito dopo nel- 
la sua condizione di subnormale. Da 
principio il programma che porta que- 
sto nome non ha idea di come vincere, 
ma dopo alcune partite la sua tecnica 
di gioco migliora; infine, dopo un dato 
numero di giochi, definito dal pro- 
grammatore, diventa imbattibile, arri- 


vando a possedere la strategia perfet- 
ta. 

Il gioco in sé è banale, poiché lo scopo 
principale del programma è l’indagine 
sul modo di apprendimento da parte 
della macchina della corretta tecnica. 
Due giocatori, a turno, tolgono degli 
oggetti da una pila di 21, ed il perdente 
è colui che prende l’ultimo. Si tratta di 
un gioco completamente definito, con 
una strategia molto semplice che si ri- 
solve nella vittoria del secondo gioca- 
tore. 

È consentito togliere uno, due o tre og- 
getti per volta; in questo modo tutto 
ciò che il secondo giocatore deve fare 
è togliere un numero di oggetti tale da 
portare a quattro il totale rimosso du- 
rante quel turno. Logicamente dopo 
cinque turni se ne saranno andati 
5x4= 20 oggetti, ed il primo giocato- 
re sarà costretto a prendere l’ultimo. 
Solo uno sciocco potrebbe perdere 
giocando come secondo ed essendo in 
possesso di questa semplice regola. 
Questa è appunto la condizione inizia- 
le del computer il quale, lasciato con 
tre oggetti, potrà benissimo prenderli 
tutti e dire “hai vinto tu”. 

Il programma, comunque, sebbene 
all’inizio non sia munito della strategia 
perfetta, possiede i mezzi per scoprirla 
(è intelligenza?) e, man mano che au- 
menta il numero di partite disputate, 
migliorarla al punto da giocare senza 
commettere errori. 

Descrizione del programma 

Mei programma, la linea 10 e la su- 
broutine servono a dare le istruzioni e 
possono quindi essere omesse. 

Le linee 15-25 sono di inizializzazione. 
Le linee 30-45 e la variabile z impedi- 
scono errori di gioco da parte del gio- 
catore umano. 

Linee 40-75. La variabile m stabilisce a 
chi tocca: m = 0 significa che è il gio- 
catore umano che deve muovere. K è il 
mumero di oggetti prelevati; se è cor- 
retto viene sottratto al totale, e ciò che 
rimane viene stampato. M è inoltre uti- 


lizzata nel processo di apprendimento. 
Le linee 80-120 stabiliscono la mossa 
della macchina, che avviene a caso ma 
nelle regole finché c’è minore di 10. Se 
c è uguale o maggiore di 10 la macchi- 
na farà la mossa perfetta contenuta in 
linea 85. 

Le linee 125-145 stabiliscono chi ha 
vinto, stampano un messaggio adatto 
ed aggiornano c. La variabile c aumen- 
ta di 2 quando la macchina vince, e di 

I quando perde. Questo in accordo 
con la teoria che l’apprendimento va 
stimolato premiando i risultati positi- 
vi. Se lo desiderate potete modificare il 
programma in modo che c sia lasciato 
immutato o addirittura decrementato 
quando la macchina perde. In questo 
modo il computer, per imparare, dovrà 
vincere a causa degli errori umani, e 
perciò sarà opportuno far giocare un 
bambino. 

Linea 145. È essenziale dare “s” se si 
vuole che la macchina impari, poiché 
ogni volta che viene dato RUM tutte le 
variabili sono reinizializzate, ed il pro- 
gramma ripiomba nella condizione di 
stupidità. 

II campo dell’inteHigenza artificiale è 
stato a torto lungamente trascurato da- 
gli appassionati, poiché possiede molti 
aspetti affascinanti ed è un’area in cui 
gli hobbisti potrebbero fornire reali 
contributi alla scienza della program- 
mazione. Pensate per esempio alle 
scoperte fatte dagli astronomi dilettan- 
ti. 

Un immediato sviluppo del program- 
ma che abbiamo visto potrebbe consi- 
stere nel fare in modo che sia la mac- 
china a giocare per prima. In questo 
caso non potrà essere equipaggiata 
con una strategia perfetta, né con i 
mezzi per trovarne una, ma sarà inte- 
ressante programmarla per imparare a 
giocare la miglior partita possibile, 
sfruttando cioè gli errori avversari per 
raggiungere una situazione vincente. 

Il programma ed i suoi sviluppi do- 
vrebbero inoltre fornire del materiale 
utile ai bambini più piccoli che impa- 
rano i numeri. 


10 GO SUB 175 
15 CLS 

20 LET c=0 : LET z=l 
25 LET n=21 : LET q$=" { 21SG5} " : 
PRINT q$ 

30 IF z=l THEN PRINT : 

PRINT "tocca a te: togline 
1, 2 o 3, ma non piu' de 
1 totale" 

35 PRINT "quanti ne togli? "; 

40 LET m=0 : INPUT k: PRINT k: 
LET z=0 

45 IF k>n OR k<l OR k>3 OR k 
< > INT k THEN LET z = l 


50 

IF Z=1 THEN GO TO 

• 30 



55 

LET n=n-k: LET q$= 

q$ ( 

TO 

n) 

60 

PRINT "ne restano 

" ;n 



75 

PRINT q$ 




80 

LET m=l : LET p=l+INT 

(3* 



RND) : IF p>n THEN 

GO 

TO 

80 


85 IF c>9 THEN LET p=4-k 
90 IF n=2 THEN LET p=l 
95 LET n=n-p 

100 INPUT "premi ENTER per la m 
ia mossa" ;r$ 
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105 PRINT "ne tolgo ";p"'ne res 
tano " ; n 

110 LET q$=q$ ( T0 n) : PRINT q$ 

115 IF n<2 THEN GO TO 125 

120 G0 TO 35 

125 LET d=n 

130 IF d=l THEN PRINT "ho vint 
o" 

135 IF dOl THEN PRINT "hai 
vinto" 

140 LET c=c+d+l 

145 INPUT "giochi di nuovo? (s/ 
n) " ; a$ 

150 IF a$="s" OR a$="S" OR a$ = " 
" THEN CLS : GO TO 25 

155 PRINT "grazie per aver gioc 
ato": PRINT : PRINT 

160 STOP 

175 PAPER 7: INK 0: CLS : 

PRINT "Questo programma vu 
ol dimostrarela posibilita' 
per una macchina di impara 
re dall'esperienza. Come 
esempio viene usato 
gioco molto semplice." 

180 PRINT "In questo gioco, i d 
ue giocator ir imuovono a tur 
no 1,2 o 3 mattoni da 

una fila di 21. Perdecolui 
che prende l'ultimo." 

185 PRINT "Giocando correttamen 
te, il risultato do 

vrebbe sempre essere la 

vittoria per il secon 

do giocatore (la macchina) , 
ma questa da principio fara 
' molte mosse sciocche." 

190 PRINT "La macchina impara 

con l'esperienz 
a, e ad un certo punto non 
potrà' piu' essere battu 
ta. Per arivare a questo 
dovrete rispondere ""s"" qu 
andò visara' chiesto di gio 
care ancora." 

195 INPUT "ENTER per iniziare 
" ; a$ : RETURN 
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Un’esplorazione all'ultimo bit del- 
le possibilità del vostro calcolato- 
re. 

L o Spectrum è una macchina sem- 
plice nei suoi concetti costruttivi, 
ma piuttosto complicata in pratica. 
D’altra parte un minimo di approfondi- 
mento circa il suo funzionamento è 
sufficiente per poter realizzare un sac- 
co di piccoli congegni che, con una 
spesa veramente esigua, sono in grado 
di ampliarne in maniera davvero scon- 
certante l’orizzonte delle applicazioni. 
Scopo (o meglio tentativo...) di questa 
serie di articoli è appunto portare 
avanti, mese dopo mese, due linee pa- 
rallele e fra loro strettamente intercon- 
nesse: l’approfondimento teorico e le 
realizzazioni pratiche. 

Questa puntata sarà dedicata, come si 
conviene ad ogni inizio, ad una ricapi- 
tolazione generale sui principi di fun- 
zionamento dello Spectrum. Per molti 
saranno cose scontate, per altri no; i 
primi portino pazienza: verrà anche il 
loro momento. 

Sempre in questa puntata esaminere- 
mo il significato dei vari contatti pre- 
senti sul connettore di espansione po- 
sto sul retro dello Spectrum. Questa 
descrizione non sarà più ripetuta, e 
perciò ci servirà da riferimento nelle 
puntate successive. 

Lo schema generale dello 
Spectrum 

Diamo dunque uno sguardo d’insieme 
ai vari componenti dello Spectrum, ed 
ai loro rapporti. 11 nostro sarà necessa- 
riamente un esame superficiale, riser- 
vandoci di riprendere ed approfondire 
i singoli argomenti quando se ne pre- 
senterà l’occasione. Visto che ci propo- 
niamo di realizzare dispositivi che col- 
leghino il nostro computer con l’ester- 
no, ci interesseremo particolarmente 
di quelle cose che con tale tipo di ap- 
plicazioni hanno più direttamene a che 
fare, trattando più rapidamente quelle 
parti dell’hardware che sono per noi di 
puro interesse teorico. Lo Spectrum è 
un sistema basato sul microprocessore 
Z80A. Ciò significa che questo ne è la 
CPU (Central Processing Unit), cioè 
l’unità centrale di elaborazione. Come 
dice il nome, non è detto che la CPU 
debba essere l’unico congegno, all’in- 
terno di un computer, che elabora dati; 
sarà però il meccanismo che svolge la 
gran parte di questo lavoro, ed in ma- 
niera più flessibile. Lo Z80A è una ver- 
sione più veloce (cioè capace di com- 
piere un numero maggiore di opera- 
zioni in uno stesso lasso di tempo) del- 
lo Z80; infatti, mentre quest’ultimo 
può operare ad una frequenza di clock 



(cioè ad un “ritmo di operazione”) non 
maggiore di 2,5 MHz (milioni di cicli al 
secondo), lo Z80A arriva a 4 MHz. Per 
ragioni di sincronismo con le operazio- 
ni del televisore ad esso collegato, nel- 
lo Spectrum la frequenza usata è di 3,5 
MHz. Si tratta di un microprocessore 
ad 8 bit; ciò vuol dire che i suoi registri 
(cioè i “posti” dove sono tenuti i risul- 


Nei meandri dello 
Spectrum 


LATO A 

1A A15 bit 15 del bus indirizzi (vedi testo) 

2A A13 del bus indirizzi 

3A D7 bit 7 del bus dati (vedi testo) 

4A non collegato 

5A fessura per il corretto allineamento del connettore 
6A DO bit 0 del bus dati 
7A DI bit 1 del bus dati 
8A D2 bit 2 del bus dati 
9A D6 bit 6 del bus dati 
10A D5 bit 5 del bus dati 
1 1 A D3 bit 3 del bus dati 
12A D4 bit 4 del bus dati 

13A = INT può essere usato per richiedere dall’esterno una interruzione, o 
per impedire le interruzioni a parte dell’ULA (vedi testo) collegandolo di- 
rettamente a + 5 volt 

( 15A = HALT indica che la CPU ha eseguito una istruzione halt, e sta quindi 
aspettando una interruzione per poter ripartire 

16A =MREQ indica una richiesta della memoria da parte della CPU (vedi 
testo) 

17A = IORQ indica una richiesta di collegamento con l’esterno a parte del- 
la CPU (vedi testo) 

18A =RD richiesta di lettura da parte della CPU (vedi testo) 

19A = WR richiesta di scrittura da parte della CPU (vedi testo) 

20A linea di alimentazione a -5 volt 

21 A = WA1T se questa linea viene portata allo stato logico zero, la CPU so- 
spende ogni sua attività. Può essere utilizzata nel caso di congegni esterni 
lenti, che hanno bisogno di essere “aspettati”. 11 suo uso, comunque, ri- 
chiede prudenza, poiché durante questi periodi non viene effettuato nean- 
che il rinfresco della memoria, e tempi di attesa superiori ad 1 msec sono 
quindi pericolosi 

22A linea di alimentazione a + 12 volt 

23A linea di alimentazione a + 12 volt non stabilizzati (il manuale inglese 
riporta per errore la dicitura “-12 v”) 

24A = MI indica che la CPU è nel primo ciclo di un’operazione; sta cioè re- 
cuperando dalla memoria il codice di un’operazione 
25A = RFSH segnala che lo Z80 sta effettuando il rinfresco della memoria 
26A A8 bit 8 del bus indirizzi 
27A AIO bit 10 del bus indirizzi 
28A non collegato 
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LATO B 

1B A14 bit 14 del bus indirizzi 

2B A12 bit 12 del bus indirizzi 

3B linea di alimentazione a +5 volt 

4B linea di alimentazione a +9 volt non stabilizzati 

5B fessura di centraggio del connettore 

6B linea a 0 volt 

7B linea a 0 volt (due linee sono necessarie ad evitare sovraccarichi) 

8B CLK il segnale di clock CK a 3,5 MHz. Può servire a sincronizzare con 
la CPU apparati esterni 
9B AO bit 0 del bus indirizzi 
10B Al bit 1 del bus indirizzi 
11B A2 bit 2 del bus indirizzi 
12B A3 bit 3 del bus indirizzi 

13B = 10RQGE collega la linea = IORQ della CPU con FU LA 
Portandola a + 5 volt si impedisce all’GLA di ricevere il segnale di richiesta 
dallo Z80. In questo modo tutte le periferiche dipendenti dall’CJLA non ver- 
ranno servite, anche se la CPU lo richiederà. 

14B linea a 0 volt, collegata normalmente al circuito video 
15B VIDEO questo e i tre contatti che seguono dovrebbero portare i segna- 
li adatti a pilotare un monitor, ma non sono normalmente collegati alle op- 
portune sorgenti all’interno dello spettro. 

16B Y 
17B V 
18B G 

19B = BGSREQ portato al livello logico zero provoca la “scomparsa” dello 
Z80, che in pratica cede tutti i suoi bus all’unità esterna che glieli chiede; a 
conferma di ciò porta a livello logico zero la linea = BGSACK 
20B = RESET portata a livello logico zero provoca il ritorno della CPG alla 
locazione di memoria zero, dove attenderà il suo ritorno a livello logico 
uno e da cui ricomincerà l’esecuzione del programma. Questa azione viene 
provocata, per mezzo di un circuito di ritardo, ad ogni accensione del com- 
puter, per permettere ai vari circuiti di iniziare a funzionare regolarmente 
prima che la CPG inizi ad eseguire il suo programma 
21B A7 bit 7 del bus indirizzi 
22B A6 bit 6 del bus indirizzi 
23B A5 bit 5 del bus indirizzi 
24B A4 bit 4 del bus indirizzi 

25B = ROMCS collega la ROM con l’GLA. Se viene portato al livello logico 
uno provoca la “scomparsa” della ROM dalla memoria dello Spectrum. Na- 
turalmente per sostituirla dovrà essere collegata della memoria esterna 
agli stessi indirizzi, pena il blocco del sistema. Questo sistema è utilizzato 
dalla Sinclair per inserire quando è necessario la ROM supplementare 
dell’interfaccia 1 al posto di quella normale nonché per sostituire alla 
ROM, nell’interfaccia 2, la cartuccia inserita nell’apposita feritoia. 

26B = BGSACK vedi 19B 
27B A9 bit 9 del bus indirizzi 
28B All bit 11 del bus indirizzi 


tati delle operazioni) sono composti da 
8 bit, e possono quindi contenere nu- 
meri da zero (00000000) a 255 (11111- 
111). La stessa dimensione l’ha il bus 
dati, cioè il mezzo con cui lo Z80 invia 
dati al mondo esterno e da questo ne 
riceve. Per facilitare le operazioni con 
numeri più grandi, comunque, è stata 
prevista la possibilità di formare delle 
“associazioni” di due registri, su cui 
possono essere effettuate molte opera- 
zioni considerandoli come un unico re- 
gistro. In tal modo i .numeri immagaz- 
zinabili possono arrivare al valore di 
65535 (11111111 11111111). Questo 
ha reso possibile l’adozione di un bus 
indirizzi, cioè la struttura con cui lo 
Z80 fa capire a chi sono diretti i dati 
che sta emettendo sul bus dati, o da 
chi desidera riceverli, sempre per mez- 
zo del bus dati, a 16 bit. Così la quanti- 
tà massima di “locazioni” diverse cui 
esso si può riferire è 65535, che divisa 
per 1024 dà 64: 64K. È infatti questa la 
massima quantità di memoria diretta- 
mente indirizzarle dallo Z80, poiché 
anche, e specialmente, la memoria fa 
parte di quel mondo esterno per colle- 
garsi al qual esso deve usare i bus. E 
poiché il bus dati, l’abbiamo visto pri- 
ma, è ampio 8 bit, ogni locazione di 
memoria conterrà un dato composto 
da 8 bit, cioè di valore compreso fra ze- 
ro e 255. Gna memoria organizzata in 
locazioni di 8 bit è una memoria suddi- 
visa in byte. Kbyte e il multiplo di que- 
sta unità, frequentemente abbreviato 
in K (lo avete appena visto): un K non è 
uguale a 1000 byte, ma alla quantità di 
byte che può essere indicata da un nu- 
mero ampio 10 bit, e cioè 1024 (2 ele- 
vato alla decima. 

Abbiamo parlato di un “mondo ester- 
no”, contrapponendolo a quanto c’è 
aH’interno (i registri con i dati avuti 
dall’esterno, e i risultati da inviare 
all’esterno) dello Z80. Bene, questo 
mondo è, agli occhi del piccolo micro- 
processore, diviso nettamente in due 
categorie: ciò che è memoria e ciò che 
non lo è. Non basta, infatti, che esso 
specifichi il valore della locazione con 
cui desidera comunicare; deve anche 
dire se si tratta di una locazione di me- 
moria o di “non memoria”, cioè dell’in- 
dirizzo di un congegno esterno. Per 
questo lo Z80 invia un segnale su una di 
due linee, chiamate appunto =MREQ 
(Memory Request) per una richiesta di 
memoria, e = IOREQ (Input/Output 
Request) se vuole un congegno ester- 
no. Ma non basta ancora; perché il suo 
messaggio non sia ambiguo, esso deve 
chiarire cosa vuole fare: inviare o rice- 
vere dati? Altre due linee chiariscono 
quest’ultimo dubbio; sono = RD (Read) 
per indicare che vuole leggere, cioè ri- 
cevere, dati, e =WR (Write) per dire 
che vuole scrivere, cioè inviare, dati. 11 
segno che compare sui nomi di alcune 
linee, come in questo caso e in molti 
altri in futuro, indica che quella linea è 
attiva (cioè indica qualcosa) quando il 
suo stato logico è zero; se inutilizzata 


avrà invece stato logico uno. 

Visto che abbiamo nominato la memo- 
ria, vediamo brevemente come è orga- 
nizzata nello Spectrum. I primi 16K 
(cioè dall’indirizzo 0 all’indirizzo 
16383) sono costituiti normalmente 
da memorie di tipo ROM (Read Only 
Memory) cioè memoria che è stata 
“scritta” una volta per tutte dalla casa 
costruttrice, e il cui contenuto non può 
più essere mutato; contiene il pro- 
gramma in linguaggio macchina che 
rende la CPG capace di comprendere il 
Basic e di fare tutto quanto va fatto 
perché il computer funzioni. I successi- 
vi 16K o 48K, a seconda delle versioni, 
sono invece composti da memoria di 
tipo RAM (Random Access Memory) 
cioè memoria su cui si può scrivere, ol- 
tre che leggere. Qui vengono tenuti 
programmi, dati, e qualsiasi altra cosa 
abbia bisogno di essere conservata per 


un successivo uso. La RAM dello Spec- 
trum è di tipo dinamico; per conserva- 
re i dati che le sono stati affidati neces- 
sita cioè di un periodico rinfresco, che 
deve avvenire ad intervalli non mag- 
giori di 2 msec (millesimi di secondo). 
Questo tipo di memoria, sebbene me- 
no caro e meno avido di energia elet- 
trica rispetto al tipo Statico (che non ha 
bisogno di rinfresco), necessita di esse- 
re collegato con un microprocessore 
predisposto per questa periodica ope- 
razione come è appunto lo Z80. Ambe- 
due le memorie, statica e dinamica, 
comunque, perdono irrimediabile- 
mente il loro contenuto se viene loro 
tolta l’alimentazione, cosa che non ac- 
cade, ovviamente, alla ROM. 

Il secondo grande protagonista all’in- 
terno dello Spectrum è l’GLA (Gncom- 
mitted Logic Array). Questo grosso cir- 
cuito integrato riunisce in sé moltissi- 
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La ‘‘mappa’' del connettore di espansione dello Spectrum. 


me funzioni, un tempo svolte da tanti 
circuiti separati. Alcune di queste fun- 
zioni riguardano la memoria, altre con- 
gegni esterni le prime sono essenzial- 
mente la lettura della zona di memoria 
dedicata aH’immagine video e l’ammi- 
nistrazione dei primi 16K di memoria. 
La prima operazione consiste nel 
“guardare dentro” le locazioni dedica- 
te a contenere le informazioni che 
compongono l’immagine vera e pro- 
pria (che sono state qui collocate dalla 
CPCJ), e pilotare di conseguenza i tre 
cannoni che “dipingono” l’immagine 
sullo schermo televisivo. La seconda 
operazione è più delicata, e consiste 
nel risolvere gli eventuali conflitti che 
si vengono a creare quando sia la CPU 
che l’CJLA hanno bisogno della stessa 
locazione di memoria, che può essere 
una di quelle dedicate all’immagine. 
Se, in questi casi, fosse l’CJLA a cedere 
il passo, alcuni punti dello schermo 
non riceverebbero la loro informazio- 
ne, e l’effetto sarebbe una specie di 
“neve” sul video. In realtà le cose van- 
no invece così: quando l’ClLA, che “tie- 
ne d’occhio” il bus degli indirizzi, si 
rende conto che la CPU vuole una delle 
locazioni comprese nei primi (e unici 
per chi ha il 16K) 16K di RAM, sempli- 
cemente blocca il clock (e di conse- 
guenza “sospende la vita” della CPCJ) 
per il tempo necessario alla lettura di 
una delle locazioni video. La CPU po- 
trà quindi usare a sua volta la memoria 
di questo primo blocco negli intervalli 
fra la lettura da parte dell’CJLA di due 
successive locazioni dell’area video. È 
evidente a questo punto che quando la 
CPCJ lavora con questo blocco di me- 
moria la sua velocità diminuisce in 
maniera considerevole. 11 problema è 
comunque molto più vasto e merita di 
essere analizzato separatamente, cosa 
che faremo in una prossima puntata. 
Per quanto riguarda i congegni ester- 
ni, l’CJLA invia e riceve dati dal regi- 
stratore a cassette, aziona l’altoparlan- 
te e, ultimo ma più importante compi- 
to, legge lo stato della tastiera. Mentre 
la parte riguardante la memoria essa 
gode di completa autonomia, in que- 
sto caso la ricezione o l’invio di dati de- 
vono essere subordinate ad una preci- 
sa richiesta della CPCJ. Oltre ad indica- 
re che si riferisce ad un congegno 
esterno, e specificare se vuole leggere 
o scrivere, questa dovrà specificare 
l’indirizzo corrispondente all’CJLA. A 
questo punto occorre fare una precisa- 
zione; per quanto riguarda i congegni 
esterni, essendo questi un numero esi- 
guo nel caso dello Spectrum, i vari bit 
del bus indirizzi non vengono usati per 
formare un vero indirizzo, ma sono uti- 
lizzati indipendentemente, ciascuno 
per indicare un’unità esterna. Il bit che 
indica l’CJLA è 1 o 0, cioè il primo. 
Quando questo bit ha valore logico ze- 
ro (nello Spectrum i bit inattivi dei bus 
hanno normalmente valore logico 
uno) l’GLA si sente “coinvolto” ed en- 
tra, a seconda della necessità, in rice- 


zione o in trasmissione. Seppure su- 
bordinato, come abbiamo detto, ad 
una richiesta della CPCJ, nel caso della 
lettura della tastiera l’CJLA “reclama 
l’attenzione” ogni 20 msec, inviando 
un segnale di interruzione (sulla linea 
= INT) che costringe la CPU ad occu- 
parsene. 

È tutto qui. Gli altri componenti dello 
Spectrum sono infatti senza importan- 
za per la comprensione dei criteri ge- 
nerali di funzionamento. 

Il connettore di espansione 

Eccoci al connettore di espansione. 
Questa serie di contatti rende accessi- 
bili dall’esterno una serie di segnali e 
linee necessari al collegamento di peri- 


feriche (così vengono chiamati tutti i 
congegni esterni): "ufficiali”, quali la 
stampante ZX o i Microdrive, o “perso- 
nali” come quelle che proveremo a 
realizzare noi. È importante quindi co- 
noscerne la “topografia”. Non preoc- 
cupatevi se i commenti, per forza di 
cose didascalici, in alcuni casi non 
chiariscono a fondo il significato di 
una linea; avremo modo di riesamina- 
re con calma ciascun contatto, e le sue 
applicazioni. 

Nella descrizione del riquadro vedete 
prima i contatti posti sulla faccia supe- 
riore del connettore, che chiameremo 
A, quindi quelli della parte inferiore, 
che chiameremo B. Fate sempre riferi- 
mento alla figura per la posizione dei 
singoli contatti. 
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66 PROGRAMMI PER ZX81 
e ZX80 CON NUOVA ROM 
+ HARDWARE 

Come sfruttare tutte le 
capacità degli ZX e, 
addirittura, moltiplicarle 
144 pag. L. 12.000 
Cod. 520D 

PROGRAMMI 
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Come acquistare la logica 
necessaria a risolvere con 
metodo, senza perdite di 
tempo, i problemi con il 
calcolatore 
228 pag. L. 16.000 
Cod. 552D 

SINFONIA PER UN 
COMPUTER VIC 20 

Imparare divertendosi è la 
prerogativa di questo libro: 
prima giocate e poi date 
un’occhiata ai listati dei 
programmi 
122 pag. L. 10.000 
Cod. 563D 

75 PROGRAMMI IN BASIC 
PER IL VOSTRO 
COMPUTER 

Programmi sperimentati e 
pronti da usare, oppure da 
rielaborare, ampliare, 
modificare, assemblare 
196 pag. L. 12.000 
Cod. 551 D 

77 PROGRAMMI 
PER SPECTRUM 

Dalla Grafica alla Business 
Grafica, dalla musica alle 
animazioni, dai giochi 
all’Elettronica ... tutte le 
possibilità offerte dallo 
Spectrum 
150 pag. L. 16.000 
Cod. 555A 
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7268 FLASH 1: PRINT AT 19, tt;" 

{ G6 } {SG4} {SG3}";AT 20, tt;" 
{G7}{G4}{G6}" ; AT 21, tt;" 
{G6} { G 3 } {SG2}" 

7270 FOR w=0 TO 30 STEP 10: 

BEEP . 08 , w: BEEP .08,25-w: 
NEXT w: FOR w=l TO 5: 

BEEP .1,-30: NEXT w 
7275 FLASH 0: PRINT AT 19, tt;" 

" ? AT 20, tt;” " ; AT 21, tt; 

fi II 

7280 PLOT 0,0: DRAW 255,0 


Difendete le vostre città dai missili 
nemici in questa iperrealistica si- 
mulazione dello Spectrum 

I n questo programma siete a capo di 
una base antiatomica posta a difesa 
di sei città, li vostro compito è di difen- 
derle da eventuali attacchi nemici ri- 
tardando il più possibile la catastrofe 
atomica per consentire l'evacuazione 
delle città in tempo utile. 

A questo scopo disponete di 30 missili 
terra-aria, che possono essere lanciati 
contro i missili nemici che sopraggiun- 
gono. Dovete comunque difendere an- 
che la vostra base poiché, in caso di 
colpo a segno su di essa, perdereste i 
vostri missili. 

Le istruzioni per giocare (che è consi- 
gliabile guardare con un televisore a 
colori) sono contenute nel program- 
ma. 

Per ogni missile colpito si ricevono 
1000 punti, e se riuscirete a salvare 
tutte le città con un solo schieramento 
di missili riceverete dei punti bonus. 
Superando i 50.000 e i 100.000 punti 
guadagnerete una città in più. 

A complicare il tutto intervengono al- 
cuni bombardieri che lanciano missili 
volando a mezza altezza. È meglio col- 
pirli al più presto prima che sgancino il 
loro carico di morte! 

Cn ultimo piccolo consiglio: lanciate i 
vostri missili in una posizione legger- 
mente più bassa rispetto a quelli nemi- 
ci così che questi ultimi si distruggano 
nell'esplosione del vostro colpo. 


h.B.: il programma necessita di 48K 
RAM. Per ridurne le dimensioni, oltre a 
togliere le linee REM e ridurre la lun- 
ghezza dei messaggi si può agire sulle 
linee 2210-2438 (il tabellone) sosti- 
tuendole con STOP e cancellando le li- 
nee 6080-6120. Quanto alle linee 
7268-7620, possono essere sostituite 
dalla seguente routine, più breve an- 
che se decisamente meno spettacola- 
re: 


h.B. bis: il sistema di scansione della 
tastiera usato in questo programma 
non dà gli stessi risultati su tutti gli 
Spectrum. Se doveste avere problemi, 
un buon procedimento per sistemare 
la situazione è quello di cambiare alcu- 
ne linee a seconda del valore ritornato 


dalla funzione Ih del vostro calcolatore 
quando nessun tasto viene premuto: il 
valore assunto da Attacco nucleare è 
255; può darsi che sul vostro sistema 
risulti 191, o un altro valore ancora. 
Per controllare battete questa linea 
(potete farlo anche col programma in 
memoria): 


22 SCJPERSINO 2/84 



9200 PRINT AT 0,0;IN 65278: GO TO 
9200 

Il numero mostrato in cima allo scher- 
mo è il valore di cui sopra. Premendo 
un tasto fra quelli nella metà sinistra 
della fila in basso - Z, X, C... - il valore 
cambierà. 

Ora, conoscendo il valore base e quelli 
di alcuni tasti diventa possibile appor- 
tare le modifiche necessarie. 

Sostituite 65278 ai vari numeri usati 
nel programma (notate che 65022 vie- 
ne controllato ma non usato - probabil- 
mente si tratta di un residuo di una 
precedente versione, eliminabile senza 
problemi). Ottenete i valori per i tasti 
che vi servono e poi modificate le linee 
135,990, da 1010 a 1035, 2050. 
Basandosi sul valore di 191, ecco cosa 
dovete cambiare: le linee 135 e 990 in 
IF IN 65278 + IN 57342 + IN 
49150(764 THEN GO SUB 1000 
Cancellate le linee da 1010 a 1035 in- 
cluse e sostituitele con 
1010 LET x = x+ (IN 64510=187 
AND x(30) - (IN 64510 = 189 AND 
X ) 0 ) 

1020 LET Y = Y • (IN 57342(191 AND 

y)0) + (IN 49150( 191 AND y( 19) 

Cambiate la linea 2050 in 

2050 IF IN 65278( 191 THEN GO SUB 

6000 

Se, nonostante tutto, aveste ancora 
problemi, scriveteci e vi aiuteremo! 

La redazione 


Linee 

Commento 

2-62 

inizializzazione di punteggio e variabili 

65-95 

determinano la rotta e il bersaglio dei nuovi missili 

100-995 

esaminano la tastiera e determinano il movimento dei 
missili 

1000-2060 

determinano se devono essere lanciati dei missili dalla 
base. 

2100-2209 

diminuiscono il ritmo dell’attacco sulle città, determi- 
nano se l’attacco è finito o se tutte le città sono state di- 
strutte. 

2210-2438 

routine per il tabellone dei migliori punteggi 

2500-2760 

routine per i punti bonus 

3000-3170 

controllano gli aerei e ne inizializzano i missili 

4000-4130 

contengono i caratteri grafici definiti 

5000-5200 

formano le esplosioni sullo schermo dei missili e degli 
aerei nemici, quando vengono colpiti 

6000-6049 

controllano il lancio dei vostri missili 

6050-6078 

contengono le istruzioni del gioco 

6080-6120 

schermata inziale dopo il carimento da nastro 

6130-6310 

controllano la sistemazione dello schermo e della base 
quando i missili non sono ancora finiti 

6330-6900 

controllano il disegno del magazzino dei missili nella 
parte bassa dello dello schermo 

7000-7150 

controllano le esplosioni dei missili difensivi 

7200-7620 

formano le esplosioni nucleari e i funghi atomici (stu- 
pendi! N.d.R.) 

7985-8200 

eliminano le tracce dei missili e le città colpite assicu- 
randosi che i nuovi missili non si dirigano su una città 
già distrutta. Queste linee calcolano anche la perdita dei 
missili difensivi quando la base viene colpita 

9005 

salvataggio del programma: per salvarlo, battere GO 

TO 9005 


Attacco nucleare 

versione per ZX Spectrum 48K 

2 LET xx=5 : LET ss=0: LET pp= 
42: INK 0: PAPER 5: 

BORDER 5: BRIGHT 0: OVER 0 
: INVERSE 0: FLASH 0: CLS : 

BEEP .5,30 

3 DIM g ( 7) : LET mm=7: LET vv= 
0: LET g ( 1) =28 : LET g(2)=60 
: LET g ( 3) =92 : LET g(4)=128 
: LET g ( 5) =164 : LET g(6)=19 
6: LET g ( 7) =228 

4 LET ab=28 : LET ss=0: DIM c$ 
(4,14): DIM c ( 3) : LET c(l)= 
0: LET c ( 2) =0 : LET c(3)=0: 

GO TO 6050 

10 GO TO 4000 

11 OVER 0: INK 7: PAPER 0: 

BORDER 0: INVERSE 0: 

FLASH 0: BRIGHT 1: CLS : 

GO TO 6080 

28 IF ss< 0 THEN LET SS = 0 

29 BEEP .5,30 

30 DIM z ( 30) : DIM m(30): DIM q 
(30): DIM i (11, 2) : DIM a(l] 

) : DIM d (11) : DIM e (11) : 

DIM f(ll) 


34 


35 


37 


40 

50 

60 

61 

62 

65 

66 

67 

68 

69 

70 

71 


LET ad=0: LET yy=0: LET t=0 
: LET rr=0 : LET kk=9: LET t 
t=12 : LET nn=0 : LET oo=125: 
LET qq=14 

LET aj=0: LET jj=6: LET ii= 
0: LET aa=l: LÉT cc=l: 

LET dd=0 : LET ee=l: LET ff 
=1: LET gg=l : LET hh=l: . 
LET bb=0 : LET s=0: LET b=0 
: LET p=0 
PRINT AT 0,10;" 

OVER 1; INK 9;AT 0,1 
0 ; "PUNTEGGIO ";ss 
RANDOMI ZE 
PLOT 127,0 
LET x=16 : LET y=10 
LET c=20 : LET n=20 
PRINT OVER 1 ; AT y,x;"X" 

IF yy>=ab THEN LET ii=l 
IF b> j j THEN GO TO 2100 
LET b=b+l 

IF b>10 THEN LET b=b-l 
IF b>10 THEN RETURN 
let yy=yy+l 

LET f (b) =INT (RND* 10) - 4 
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73 LET d (b) =g ( ( INT (RND*min) ) +1 
) -175* (f (b)/5) 

75 LET e (b) =175 
82 LET i(b,l)=d(b): LET i(b,2) 
=e(b) 

90 IF d (b) <0 OR d (b) >255 
THEN GO TO 71 
95 IF b>l THEN RETURN 

100 OVER 0 

101 IF b=0 OR mm=0 THEN 

GO TO 2200 

102 IF RND > i i THEN GO SUB 65 

110 FOR a=l TO b 

115 IF e (a) <5 THEN GO TO 7200 

120 PLOT d(a),e(a): DRAW f(a),- 
4 

130 LET e (a) =e (a) - 5 : LET d(a)=d 
(a) +f (a) 

131 IF ad=l THEN GO TO 3060 

132 LET k=l: IF POINT (d(a),e(a 
)-l)=l AND ATTR ((175-e(a)) 
/8,d(a)/8)=pp THEN GO TO 8 
000 

135 IF IN 65278<253 OR IN 64510 
+IN 65022+IN 57342+IN 49150 
<1020 THEN GO SUB 1000 

140 NEXT a 

150 IF RND > . 9 THEN GO TO 3000 

990 IF IN 65278<253 OR IN 64510 
+IN 65022+IN 57342+IN 49150 
<1020 THEN GO SUB 1000 

992 IF bb=l THEN RETURN 

995 GO TO 100 
1000 LET c=x: LET n=y 
1010 LET x=x+ ( IN 64510=251) 

1020 LET y=y- ( IN 57342<255) 

1030 LET x=x- ( IN 64510=253) 

1035 LET y=y+ ( IN 49150<255) 

2000 IF x<0 THEN LET x=0 


2020 IF y<0 THEN LET y=0 
2030 IF y>20 THEN LET y=20 
2040 IF x>31 THEN LET x=31 

2045 IF c=x AND n=y THEN 

GO TO 2050 

2046 OVER 1: PRINT AT y,x;"X" 

2049 OVER 1: INVERSE 0: PRINT 
AT n,c;"X" : INVERSE 0: 

OVER 0 

2050 IF IN 65278<253 THEN 

GO SUB 6000 
2060 RETURN 
2100 LET ii= . 8 
2190 GO TO 67 

2200 IF mm<=0 THEN GO TO 2210 
2202 IF yy<=ab THEN GO TO 65 

2209 GO TO 2500 

2210 PRINT AT 5 , 8 ; " { SG6 } {G3 } {G6 } 

{SG6 } {G3 } {G6 } { SGl } {SG2 } 
{SG4 } { 2G3 } " 

2220 PRINT AT 6 , 8 ; " { SG5 } {G4 } 

{SG3 } {SGl} {SG3} {SG2} { SG5 } 
{G3 > { G 5 } {SG4 } {G3 } {G2 } " 

2230 PRINT AT 7 , 8 ; " { G6 } { SG3 } 

{ SG6 } { SG5 } {G5 } {SG5 } {G5} 
{SGl} {2SG3}" 

2240 PRINT AT 9 , 8 ; " {SG6 } {G3 } {G6 } 
{SG5 } {G5 } { SG4 } { 2G3 } 

{SG4 } {G3 } {G6 } " 

2250 PRINT AT 10,8;"{SG5} {G5} 
{SG5} {G5 } {SG4}{G3}{G2} 
{SGl} {SG3} {SG6}" 

2260 PRINT AT 11 , 8 ; " {G6 } {SG3 } 
{SG6 } {Gl} {SG3} {G2} {SGl} 

{ 2SG3 } {SG5} {G6 } " 

2270 FOR a=40 TO 0 STEP -1: 

BEEP a*. 002 , a: NEXT a: 

FOR a=30 TO 69: BEEP .0015 
,a: NEXT a: PAUSE 100 
2280 PAPER 1: BORDER 1: INK 7: 
BRIGHT 1: OVER 0: 

INVERSE 0: CLS 
2282 LET w=0 

2290 PRINT AT 0 , 11 ; "TABELLONE" 

2292 PRINT AT 3,0;" PUNTI 

NOME" ' ' " 1 "; 

TAB 14-LEN STR$ c(l);c(l)," 

" ; c$ (1) 

2293 PRINT AT 7,0;" 2 " ; TAB 14 

-LEN STR$ c ( 2 ) ; c ( 2 ) , " ";c${ 
2) ' 3 " ; TAB 14-LEN 

STR$ c ( 3) ; c ( 3 ) ," " ; c$ (3) 

2294 PLOT 7,154: DRAW 240,0: 

DRAW 0,-64: DRAW -240,0: 
DRAW 0,64: PLOT 7,142: 

DRAW 240,0 
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2295 PLOT 32,154: DRAW 0,-64: 

PLOT 127,154: DRAW 0,-64 
2300 PRINT AT 12,0; "IL TUO PUNTE 

GGIO. ;AT 12,18;" " 

; AT 12 , ( 26-LEN STR$ ss);ss 
2305 IF w>0 THEN GO TO 2370 
2310 FOR a=l TO 3: IF ss>c(a) 
THEN GO TO 2316 

2315 NEXT a: GO TO 2370 

2316 PRINT AT 16,2;"Hai il punte 
ggió numero ";a 

2317 INPUT "Introduci il tuo nom 
e(fino a 14 lettere) ...."; c 
$ ( 4 ) 

2320 FOR w=2 TO a STEP -1 
2325 LET c$ (w+1) =c$ (w) 

2330 LET c (w+1) =c (w) 

2332 NEXT w 
2335 LET w=2 
2340 LET c (a) =ss 
2350 LET c$ (a) =c$ (4) 

2355 PRINT AT 16,2;" 

ti 

2360 GO TO 2285 

2370 PRINT AT 18 , 6 ; "C=Copia del 
tabellone" 

2380 PRINT AT 16 , 2 ; "Scegli fra 1 
e segunti opzioni" 

.2385 PRINT F=Fine del p 

rogramma " 

2390 PRINT " I=Iniziare una nuo 
va partita " 


2400 

LET a$=INKEY$: IF a$ 
THEN GO TO 2400 

_ Il II 

2409 

IF a$="f " OR a$="F" 
CLS 

THEN 

2410 

IF a$="f" OR a$="F" 
STOP 

THEN 

2420 

IF a$=" i" OR a$="I " 
GO TO 2422 

THEN 

2421 

GO TO 2430 


2422 

LET xx=5: LET pp=42: 
PAPER 5: BORDER 5: 
BRIGHT 0: OVER 0: 

INK 


INVERSE 0: FLASH 0: 
BEEP .5,30 

CLS 


2423 DIM g (7) : LET mm=7: LET vv= 
0: LET g ( 1) =28 : LET g(2)=60 
: LET g ( 3) =92 : LET g(4)=128 
: LET g ( 5) =164 : LET g(6)=19 
6: LET g ( 7) =228 

2424 LET ab=28: GO TO 6050 

2430 IF a$="c" OR a$="C" THEN 

GO TO 2438 

2431 GO TO 2370 

2438 COPY : BEEP .5,30: PRINT 
AT 18,6;" 


": GO TO 2380 

2500 BORDER 0: PAPER 0: BRIGHT 1 
: INK 4: INVERSE 0: FLASH 0 
: OVER 0: CLS 

2501 LET y=0 : LET n=0 

2502 PRINT AT 17,2;"PUNTI CITTA' 

" ; AT 19,2 

; "PUNTI MISSILI 

Il 

• • • 

2510 PRINT AT 0,10; "PUNTI BONUS 

II 

2511 FOR a=l TO mm: IF g(a)=128 

THEN GO TO 2513 

2512 NEXT a: GO TO 2520 

2513 FOR w=a TO mm-1: LET g(w)=g 
(w+1) : NEXT w: LET mm=mm- 1 

2520 PRINT AT 3,5;"CITTA' RIMANE 
NTI " 

2525 PRINT AT 5 , 7 ; "NESSUNA" 

2530 FOR a=l TO mm 

2540 PRINT AT 5,4*a-l;"ABC " 


2542 LET y=y+2000: PRINT AT 17,3 
0-LEN STR$ y; y: BEEP .025,3 
0 

2550 NEXT a 

2560 PRINT AT 8, 5; "MISSILI RIMA 
NENTI " 

2562 IF t>30 THEN PRINT AT 10,7 
; "NESSUNO" 

2565 LET c=0: LET w=100 
2570 *FOR a = l TO (30-t) 

2580 PLOT a*15+10-c,w: DRAW -1,- 

1: DRAW -1,-2: DRAW 0,-5: 
DRAW -2,-2: DRAW 2,-4: 

DRAW 0,-5: DRAW -2,-2: 

DRAW 0,-3: DRAW 6,-2: 

DRAW 0,1 

2585 PLOT a* 15+10-c ,w: DRAW 1,-1 
: DRAW 1,-2: DRAW 0,-5: 

DRAW 2,-2: DRAW -2,-4: 

DRAW 0,-5: DRAW 2,-2: 

DRAW 0,-3: DRAW -6,-2: 

DRAW 0,1 

2586 LET n=n+500: PRINT AT 19,30 
-LEN STR$ n; n: BEEP .025,35 

2588 IF a=15 THEN LET w=70 

2589 IF a=15 THEN LET c=225 

2590 NEXT a 

2600 LET ss=ss+n+y : PRINT AT 21, 

2;" NUOVO PUNTEGGIO 

" ; AT 21 , 3 0-LEN STR$ ss 

; ss 

2605 IF vv=2 THEN GO TO 2700 
2610 IF ss>=100000 THEN GO TO 2 
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640 

2620 IF ss>=50000 THEN GO TO 26 
40 

2630 GO TO 2700 
2640 IF vv=l AND ss<100000 
THEN GO TO 2700 
2642 LET vv=vv+l: IF mm>=6 
THEN GO TO 2700 
2645 LET mm=mm+l 
2650 LET g(mm)=ww 
2660 PRINT FLASH 1; INK 6;AT 1, 
9; "BONUS CITTA 'ABC" 

2700 FOR a=l TO 50: NEXT a: 

INPUT "Premi ENTER per con 
tinuare . . " ; a$ 

2704 IF xx=6 THEN GO TO 2717 

2705 IF xx=4 THEN GO TO 2715 

2710 LET xx=4 : LET pp=34: INK 0: 

PAPER 4: BORDER 4: OVER 0: 
INVERSE 0: BRIGHT 0: 

FLASH 0: CLS 

2711 GO TO 2720 

2715 LET xx=6 : LET pp=50: INK 0: 

PAPER 6: BORDER 6: OVER 0: 
INVERSE 0: BRIGHT 0: 

FLASH 0: CLS 

2716 GO TO 2720 

2717 LET xx=5 : LET pp=42: INK 0: 

PAPER 5: BORDER 5: OVER 0 : 
INVERSE 0: BRIGHT 0: 

FLASH 0: CLS 

2720 FOR a=l TO min: LET tt=(g(a) 
+3)/8-2 

2730 LET jj=jj+2: LET ab=ab+l: 
PRINT AT 21 , tt ; "ABC" : 

NEXT a 

2735 LET mm=mm+l: LET g(mm)=128 
2740 PLOT 0,0: DRAW 255,0 
2750 GO SUB 6213 
2760 GO TO 20 

3000 IF ad = l THEN GO TO 160 

3001 LET ad=l : INK 8 

3005 LET ac=0 

3006 GO TO 132 

3010 LET ac=ac+l 

3011 PRINT AT 11, ac; " QRS " 

3020 IF ATTR (ll,ac+2)=pp THEN 

GO TO 5000 

3025 IF RND > . 3 THEN GO TO 3050 
3030 IF ac>27 THEN GO TO 3050 
3035 LET ae=16+ac* 8 : LET af=(ac+ 
2)/4 

3040 IF ae>g (af ) -6 AND ae<g(af)+ 
4 THEN GO TO 3100 
3050 PRINT AT 11, ac;" NO" 

3055 GO TO 132 


3060 IF ac=29 THEN LET ad=0 
3070 IF ad=l THEN GO TO 3010 
3075 PRINT AT 11,0;" 

" ; AT y, 

x; "X" 

3080 GO TO 132 

3100 IF yy>=ab THEN LET ii=l 
3105 LET b=b+l 

3110 IF b>10 THEN LET b=b-l 
3120 IF b>10 THEN GO TO 3050 
3130 let yy=yy+l 
3140 LET f (b) =1 
3150 LET d (b) =g (af ) - 15. 4 
3160 LET e (b) =75 : LET i(b,l)=d(b 
) : LET i (b, 2) =80 
3165 PLOT d (b) - 1 , 80 : DRAW 1,-5 
3170 GO TO 3050 
4000 FOR a=0 TO 151 
4010 READ b 
4020 POKE USR "A"+a,b 
4030 NEXT a 
4035 GO TO 11 

4040 DATA 6,6,22,30,95,95,127,25 
5,28,28,92,92,125,125,253,2 
55 

4050 DATA 0,0,64,96,104,232,250, 
255,7,7,15,15,15,15,7,7 
4060 DATA 224,224,240,240,240,24 
0,224,224,0,0,0,0,0,0,1,3 
4070 DATA 0,0,0,0,60,255,255,255 
,0,0,0,0,0,0,128,192 
4080 DATA 3,1,0,0,0,0,0,0,255,25 
5,255,60,0,0,0,0 

4090 DATA 192,128,0,0,0,0,0,0,60 
,126,255,255,255,255,126,60 

4100 DATA 0,0,24,60,60,24,0,0,19 
2,244,127,63,127,195,7,14 
4110 DATA 192,224,240,252,255,24 
0,192,0,60,126,90,126,60,21 
9,60,195 

4120 DATA 12,14,7,3,7,12,0,0,12, 
14,255,255,255,63,124,224 
4130 DATA 0,0,0,192,240,0,0,0 

5000 LET ai=83 : LET ah=ac*8+20 

5001 PRINT AT 11,0;" 

" ; AT y, 

x; "X" 

5002 LET a j = 1 

5003 LET ss=ss+3000 : PRINT AT 0, 
10 ;" "; 

OVER 1; INK 9; AT 0,10;"PUN 
TEGGIO " ; ss 

5004 GO TO 5010 

5005 LET ah=d (a) : LET ai=e(a) 
5010 IF ai- 10>174 OR ah-10<0 
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5011 

5013 

5014 

5015 

5016 
5020 
5025 
5030 
5035 
5040 
5045 
5050 
5055 
5180 

5182 

5183 

5184 

5185 
5190 
5192 


OR ah+10>255 THEN GO TO 5 


013 

GO TO 5014 

BEEP .025,20: GO TO 5190 
LET ak=0 
LET ak=ak+l 


FOR w=l TO 5 STEP 2 


PLOT ah-w,ai-w 
PLOT ah-w*2,ai 
PLOT ah+w,ai-w 
PLOT ah+w*2,ai 
PLOT ah+w,ai+w 
PLOT ah,ai+w*2 
PLOT ah-w,ai+w 
PLOT ah,ai-w*2 
NEXT w 
IF ak=l THEN 
IF ak=l THEN 
IF ak=l THEN 
INVERSE 0 
IF a j = 1 THEN 
IF ajOl THEN 


DRAW 1,0 
DRAW 1,0 
DRAW 1,0 
DRAW 1,0 
DRAW 1,0 
DRAW 1,0 
DRAW 1,0 
DRAW 1,0 
0 

INVERSE 1 
BEEP .025,20 
GO TO 5015 

LET ad=0 
GO TO 8002 


5195 LET a j = 0 
5200 GO TO 100 

6000 IF t>=30 THEN GO TO 7069 

6001 OVER 1 

6002 LET o=x*8-112-kk: LET r=170 
-y*8-ll 

6003 PLOT oo,qq: DRAW o,r 

6004 PLOT oo,qq: DRAW o,r 
6008 OVER 0 

6010 INVERSE 1: PLOT oo-l,qq: 
DRAW 2,0: PLOT oo,qq: 

DRAW 0,5 

6015 IF nn=0 THEN LET 11=11-4 
6018 IF nn=0 THEN LET kk=kk+21- 
11*1.5 

6020 IF nn=0 THEN LET nn=24-ll* 
1.5 

6025 LET kk=kk-6 
6030 LET nn=nn- 6 
6040 LET oo=kk+116 : LET qq=ll+2 
6045 IF t< 29 AND 11<0 AND kk = 21 
THEN GO SUB 6214 

6049 INVERSE 0: GO TO 7000 

6050 INK 0: PAPER 5: BORDER 5: 

BRIGHT 0: OVER 0: 

INVERSE 0: CLS : PRINT 
AT 10,4;"Vuoi le istruzioni 
?" : FOR w= 1 TO 50: NEXT w 

6051 LET b$=INKEY$ : IF b$="" 

THEN GO TO 6051 

6052 IF b$="s" OR b$="S" THEN 

GO TO 6054 

6053 GO TO 6198 



6054 CLS : PRINT AT 0,7; "LA MISS 
IONE" 

6055 PRINT '"Sei a capo di una b 

ase di missili Terra- 

Aria durante una guerra nu 
cleare . . " 

6056 PRINT "'Il tuo compito e' q 

uello di difendere 5 ci 

tta' e la tua base miss 

ilistica dai missili atom 
ici nemici . . " 

6057 PRINT '"Hai a disposizione 
30 missili Terra-aria ,10 

dei quali sempre presenti 
sulla base di lancio; se 1 
a base viene colpita , 

vengono distrutti tutti i 
missili presenti.." 

6058 PRINT '"Piu' a lungo resist 

i agli attacchi dei m 

issili nemici , piu' gente pot 
ra' essere evacuata dall 
e citta ' . " 

6059 FOR w=l TO 500: NEXT w: 

PRINT #1 ; AT 1,2; "PREMI UN 
TASTO PER CONTINUARE": 

PAUSE 0 

6060 CLS : PRINT AT 0,6; "DETTAGL 
I TECNICI" 

6061 PRINT '"I missili Terra-Ari 

a sono guidati muoven 

do il mirino ""X"" .. 

per colpire un missile at 
omico o un aereo nemico può 
i muovere il mirino ""X"" 
in 8 direzioni." 

6062 PAPER 6: FOR w=9 TO 21: 

PRINT AT w , 0 ; " 

ti . 

NEXT w: PRINT AT 12,0;" 

{ 2SG3 } { 2SG3 } {2SG3} {2SG3} 

{ 2SG3 } { 2SG3 } {2SG3} 

{ 2SG3 } { 2SG3 } {2SG3}" 

6063 PRINT INVERSE 1;"1 {SG8}2 

{ SG8 } 3 { SG8 } 4 {SG8}5 {SG8}6 

{SG8 } 7 { SG8 } 8 {SG8}9 {SG8 } 
0 " 
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6064 PRINT INVERSE 1 {SG8}Q 
{SG8 } " ; INK 1 ; "W {SG8 } " ; 

INK 5; PAPER 0 ; "E "; 

PAPER 6; INK 0 ; " { SG8 }R 
{ SG8 } T "; INK 2 ; " { SG8 } Y 
{ SG8 }U { SG8 } I { SG8 }0 {SG8}P 

II 

6065 PRINT " { 2G3 } "; INK 1;" 

{ 2G3 } " ; INK 5 ; " { 2G3 } " ; 

INK 0;" { 2G3 } { 2G3 } "; 

INK 2 ; " { 2G3 } { 2G3 } { 2G3 } 

{ 2G3 > { 2G3 } " 

6066 PRINT " { 2SG3 } {2SG3} 

{ 2SG3 } { 2SG3 } {2SG3} " ; 

INK 3 ; " { 2SG3 } {2SG3} 

{ 2SG3 } { 2SG3 } { 2SG3 } { SG7 } " 

6067 PRINT INVERSE 1;"{2SG8}A 

{ SG8 } S { SG8 }D { SG8 } F {SG8}G 
"; INK 3 ; " {SG8 }H {SG8}J 
{ SG8 } K { SG8 }L {SG8 } {G5}" 

6068 PRINT INVERSE 1'" {SG8}Z 

INK 4 ; " {SG8 }X {SG8}C 
{ SG8 } V "; INK 0 ; " { SG8 } B 
{SG8 }N { SG8 }M {SG8 } {SG8 } 
{G5 } " 

6069 PRINT " { 3G3 } {2G3} INK 4 

; " { 2G3 } { 2G3 } {2G3}"; INK 0 
;" { 2G3 } { 2G3 } {2G3} {2G3} 

{ 3G3 } {G2 } " 

6070 INK 8: PLOT 0,0: DRAW 255,0 
: DRAW 0,104: DRAW -255,0: 

DRAW 0,-104: PLOT 0,78: 
DRAW 255,0 

6071 PRINT OVER 1;AT 9,0;"SCHEM 
A TASTIERA E USO DEI TASTI" 

6072 PRINT INK 1; INVERSE 1; 

AT 11,1; "SINISTRAI SG8 } " } 

INK 5; PAPER 0; "DESTRA"; 
PAPER 6 ; " { SG8 } " ; INK 2; "SU 
{SG8 } " ; INK 3; "GIU' {SG8 }" ; 
INK 4 ; "FUOCO { SG8 } " 

6073 FOR w=l TO 500: NEXT w: 

PRINT #1 ; AT 1,2; "PREMI UN 
TASTO PER CONTINUARE": 

PAUSE 0 

6074 PAPER 5: CLS : PRINT AT 0 , 1 
2; "PUNTEGGI" 

6075 PRINT '"Per ogni missile co 
lpito ricevi 1000 punti. Pe 
r ogni citta' e ogni miss 
ile rimasto intatto al term 
ine di ogni schieramento 

•si guadagnano dei punti bo 
nus , dopo 50000 e 100000 p 
unti riceverai delle 

t 


altre citta' da salvare..." 

6076 PRINT '"BUONA FORTUNA!" 

6078 FOR w=l TO 500: NEXT w: 

PRINT ' ' " PREMI UN TASTO P 
ER CONTINUARE..": PAUSE 0: 
GO TO 6198 

6080 PRINT AT 3 , 14 ; " { SG3 } { SG8 } 
{SG3 } " ; AT 4,12;"{SG3}{5SG8} 
{SG3} " ; AT 5,11;" {G5} {7SG8} 
{SG5 } " 

6081 PRINT AT 6 , 11 ; " { 9SG8 } " ; AT 7 
,10;"{G5}{ 9SG8 }{SG5}"; AT 8, 
11 ; " { 9SG8 } " 

6082 PRINT AT 9 , 11 ; " {G5 } { 7SG8 } 
{SG5 } " ; AT 10, 12;"{G3} {5SG8} 
{G3 } " ; AT 11 , 14 ; " { 3SG8 } " 

6083 PRINT AT 12 , 13 ; " {G4 } { 3SG8 } 

{ SG7 } " ; AT 13 , 11 ; " {G4 } { 2G6 } 

{ 3SG8 } { 2SG6 } { SG7 } " ; AT 14,12 
; " { 2G2 } {3SG8} {2G1}" 

6084 PRINT AT 15 , 13 ; " {G4 } { 3SG8 } 
{SG7 } " ; AT 16 , 12 ; " { SG4 } 

{G2} { 3G 8 } {Gl} { G 7 } " ; AT 17, 

8; " {G4} {SG3} {SG2} {9SG8} 

{SG1} {SG3} {SG7}" 

6085 PRINT AT 18 , 7 ; " { 17G3 } " 

6086 PLOT 0,0: DRAW 255,0: 

DRAW 0,175: DRAW -255,0: 
DRAW 0,-175 

6087 PLOT 4,4: DRAW 247,0: 

DRAW 0,167: DRAW -247,0: 
DRAW 0,-167 

6088 PLOT 8,8: DRAW 239,0: 

DRAW 0,159: DRAW -239,0: 
DRAW 0,-159 

6089 PRINT FLASH 1; INK 2;AT 19 
,5; "FERMA IL REGISTRATORE" 

6090 PRINT INK 4; INVERSE 1; 

AT 6,12; "NUCLEAR" ; AT 7,12;" 
ATTACK." 

6091 FOR a=44 TO 208 STEP 159 ' 

6092 PLOT a, 150: DRAW -5, -9, PI/ 
2: DRAW 0,-40: DRAW -10,-10 
: DRAW 5,-5: DRAW 5,-10: 

DRAW 0,-20: DRAW -10,-10: 
DRAW 0,-10: DRAW 10,-5 

6093 PLOT a, 150: DRAW 5, -9, -PI/' 
2: DRAW 0,-40: DRAW 10,-10: 

DRAW -5,-5: DRAW -5,-10: 
DRAW 0,-20: DRAW 10,-10: 
DRAW 0,-10: DRAW -10,-5: 
DRAW 0,2: DRAW -10,0: 

DRAW 0,-2 

6094 PLOT a, 101: DRAW 0,-25: 

PLOT a, 56: DRAW 0,-25 
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6095 REM 

6096 INK 5: PLOT a-2,137: DRAW.O 

,-3: DRAW 1,0: DRAW 1,1: 

DRAW 0,2: DRAW -1,1: 

DRAW -1,0: PLOT a- 2, 126: 

DRAW 0,3: DRAW 1,1: DRAW 1 
, - 1 : DRAW 0,-3: DRAW 0,2: 

DRAW -1,0 

6097 PLOT a- 2, 122: DRAW 0,4: 

DRAW 2,-4: DRAW 0,4: 

PLOT a, 120: DRAW -1,0: 

DRAW -1,-1: DRAW 0,-2: 

DRAW 1,-1: DRAW 1,0: 

DRAW 0,2 

6098 PLOT a, 114: DRAW -2,0: 

DRAW 0,-2: DRAW 2,0:- 

DRAW -2,0: DRAW 0,-2: 

DRAW 2,0: PLOT a- 2, 104: 

DRAW 0,4: DRAW 1,0: DRAW 1 
,-l: DRAW -1,-1: DRAW 1,-1: 

DRAW 0,-1 

6099 INK 7: PLOT a-4,144: DRAW 8 
,0: PLOT a-4,142: DRAW 8,0 

6100 PRINT AT 13,INT (a/8);"P" 

6101 PLOT a-4,61: DRAW 1,0: 

DRAW 1,-1: DRAW 1,0: 

DRAW 1,1: DRAW 1,0: DRAW 1 
,- 1 : DRAW 1,0: DRAW 1,1: 

DRAW 1,0 

6102 PLOT a-4,59: DRAW 1,0: 

DRAW 1,-1: DRAW 1,0: 

DRAW 1,1: DRAW 1,0: DRAW 1 
,-l: DRAW 1,0: DRAW 1,1: 

DRAW 1,0 

6103 NEXT a 

6108 PRINT #1 ; AT 1,3; "PREMI UN T 
ASTO PER INIZIARE" 

6110 FOR w=50 TO 35 STEP -1: 

IF INKEY$=" " THEN GO TO 6 
130 

6120 FOR w=l TO 10: RUN 

6130 BEEP . 015 ,w: BEEP .025, RND* 
100-35: BEEP .025, RND * 5 0 - 2 5 
: BEEP . 02 5, RND* 2 0-10 : 

NEXT w 

6140 FOR w=l TO 10: NEXT w: 

PAUSE 0: RUN 

6198 LET ak=l : CLS : PRINT AT 10 
,8; """NUCLEAR ATTACK""" 

6199 LET ss=- 1 : PRINT 'TAB 3;"pr 
emi un tasto per iniziare"; 
: FOR w=-l TO 12: BEEP .025 
, RND* 100- 40 : BEEP .025,w*5: 

NEXT w: PAUSE 0: CLS 

6200 FOR z=2 TO 12 STEP 4 



6210 PRINT AT 21, z; "ABC" 

6211 PRINT AT 21 , z+17 ; " ABC" 

6212 NEXT z 

6213 LET ak=l : GO TO 6320 

6214 INVERSE 0: LET wwww=0 

6215 FOR a=0 TO 3 

6216 FOR z=a+wwww TO wwww+3 

6217 OVER 1: PLOT 115+(z*6) ,2+( 
*4): DRAW 2,0: PLOT 116+(z 
6) , 2+ (a*4) : DRAW 0,5 

6218 NEXT z 

6219 LET wwww=wwww- . 5 

6220 NEXT a: OVER 0 

6221 IF ak=l THEN GO TO 6229 

6222 IF t>=19 THEN GO TO 6225 

6223 POKE 23280,63: POKE 23281,6 
3: POKE 23282,63 

6224 GO TO 6229 

6225 POKE 23276,63: POKE 23277,6 
3: POKE 23278,63 

6229 LET ak=0 

6230 PLOT 0,0: DRAW 255,0 

6240 LET kk=9 : LET 11=12: LET nn 
=0: LET 00=125: LET qq=14 
6290 IF s s = — 1 THEN GO TO 20 
6300 RETURN 
6310 GO TO 7000 
6330 RESTORE 6430 
6340 PLOT 0,0: DRAW 255,0 
6350 FOR a=20687 TO 22223 STEP 2 
56 

6360 POKE a, 60 

6370 NEXT a 

6380 POKE 22479,126 

6390 FOR a=20719 TO 22299 STEP 2 

56 

6400 READ b 

6410 POKE a ,b 

6420 NEXT a 

6430 DATA 255,231,231,231,231,19 

5,129 

6440 FOR a=20716 TO 22296 STEP 2 
56 

6450 READ b,c,d 

6460 POKE a ,b: POKE a+l,c: 

POKE a+2,d: POKE a+4,b: 
POKE a+5,c : POKE a+6 ,d 
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6470 NEXT a 

6480 DATA 132,33,8,115,156,231,1 
32 33 8 

6490 DATA 0,0,0,132,33,8,115,156 
,231,132,33,8 

6500 POKE 23247, 8*xx+7 
6510 POKE 23279, 8*xx+7 
6515 FOR a=0 TO 6 
6520 POKE 23276+a , 56 
6530 IF a=2 THEN LET a=3 
6540 NEXT a 
6900 GO TO 6214 

7000 IF t>=30 THEN GO TO 7069 

7001 LET S=S+1: LET t=t+l: LET m 
(s)=y: LET q(s)=x 

7005 LET bb=l 

7010 INK 2: OVER 1 

7022 FOR w=aa TO s 

7025 PRINT AT m (w) ,q (w) ; "M" 

7030 NEXT w 

7031 LET aa=aa+(w-aa) 

7032 BEEP .01,35 
7035 FOR w=CC TO s 

7038 PRINT AT m (w) ,q (w) ; "M" 

7040 PRINT AT m (w) ,q (w) ; "L" 

7045 NEXT w 
7050 BEEP .01,35 
7058 LET cc=cc+(w-cc) 

7060 FOR w=ee TO s 

7062 PRINT AT m (w) ,q (w) ; "L" 

7065 PRINT AT m (w) ,q (w) - 1 ; "D 

{ SG8 }E" ; AT m(w)-l,q(w)-l;"F 
GH";AT m (w) +l,q (w) -1; " I JK " 

7066 NEXT w 

7067 BEEP .01,35 

7068 LET ee=ee+(w-ee) 

7069 INK 8: OVER 0: GO SUB 100 

7070 INK 2: OVER 1 

7071 FOR w=ff TO s 

7072 PRINT AT m (w) ,q (w) ; "L" 

7075 PRINT AT m (w) ,q (w) - 1 ; "D 

{ SG8 }E" ; AT m(w)-l,q(w)-l;"F 
GH " ; AT m(w)+l,q(w)-l; "IJK" 

7080 NEXT w 

7081 LET ff=ff+(w-ff) 

7082 IF s=30 THEN GO TO 7084 

7083 INK 8: OVER 0: GO SUB 100 

7084 INK 2: OVER 1 

7085 FOR w=gg TO s 

7088 PRINT AT m (w) ,q (w) ; "L" 

7090 PRINT AT m (w) ,q (w) ; "M" 

7095 NEXT w 

7096 LET gg=gg+(w-gg) 

7097 IF s=30 THEN GO TO 7099 

7098 INK 8: OVER 0: GO SUB 100 

7099 INK 0: OVER 0 


7100 FOR w=hh TO s 

7105 PRINT AT m (w) ,q (w) - 1; " " ; 

AT m (w) -l,q (w) -1; " " 

7106 IF m (w) >=20 THEN GO TO 710 
8 

7107 PRINT AT in (w) +1 , q (w) - 1 ; " 

GO TO 7110 

7109 PRINT OVER 1;AT m(w)+l,q(w 
) - 1 ; " 

7110 NEXT w 

7120 LET hh=hh+ (w-hh) 

7130 PRINT INK 0; OVER 0;AT y,x 
; "X” 

7135 PRINT AT 0,10;" 

OVER 1; INK 9; 

AT 0, 10; "PUNTEGGIO ";ss 
7140 LET bb=0 

7150 INK 0: INVERSE 0: OVER 0: 

GO TO 100 

7200 LET dd=l : OVER 0 
7210 FOR w=l TO min 
7220 IF d (a) <g (w) +8 AND d(a)>g(w 
) - 8 THEN GO TO 7231 
7230 NEXT w: GO TO 7996 
7235 LET zz=w 
7240 LET tt= (d (a) +3) /8-2 
7250 PRINT AT 19,tt+l;" " ; AT 20, 
tt;" " ; AT 21, tt;" " 

7260 LET uu=g (w) 

7268 PLOT 0,0: DRAW 255,0 
7270 PLOT uu-4,1: DRAW 7,0: 

PLOT uu- 2,2: DRAW 3,0 
7275 PLOT uu- 5,2: DRAW 9,0: 

PLOT uu-7,1: DRAW 13,0: 
PLOT uu- 2,3: DRAW 3,0 
7280 PLOT uu-4,3: DRAW 7,0: 

PLOT UU- 6,2: DRAW 11,0: 
PLOT uu- 2,4: DRAW 3,0: 

PLOT uu- 9,1: DRAW 17,0: 
PLOT uu-1,5: PLOT uu,5 

7285 PLOT uu- 5,4: DRAW 9,0: 

PLOT uu-6,3: DRAW 11,0: 
PLOT uu-4,5: DRAW 7,0: 

PLOT uu- 8,2: DRAW 15,0: 
PLOT uu- 3,6: DRAW 5,0: 

PLOT UU-11,1: DRAW 21,0: 
PLOT uu-1,7: PLOT uu,7 

7286 OVER 1: INK 8: PAPER 7: 

BRIGHT 1: PRINT AT 21,tt-l 

• IV II 

7287 PRINT AT 20,tt-2;" "; 

AT 19 , tt- 1 ; " " ; AT 18, tt 

;" " ; AT 17, tt+1; " " 

7288 BRIGHT 0: OVER 1: INK 8: 

PAPER xx: PRINT AT 21,tt-l 

• VI VI 

f 
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7290 PRINT AT 20,tt-2;" 

AT 19, tt-1; " " ; AT 18, tt 

" ; AT 17, tt+1; " " 

7292 OVER 0 

7294 PLOT uu-7,5: DRAW 13,0: 

PLOT uu- 7,6: DRAW 13,0: 
PLOT uu- 8,4: DRAW 15,0: 
PLOT uu- 6,7: DRAW 11,0: 
PLOT uu-8,3: DRAW 15,0 

7295 PLOT uu- 5,8: DRAW 9,0: 

PLOT uu-9,2: DRAW 17,0: 
PLOT uu- 3,9: DRAW 5,0: 

PLOT uu- 13 , 1 : DRAW 25,0: 
PLOT uu- 1,10: PLOT uu , 10 

7300 PLOT uu-8,7: DRAW 1,0: 

PLOT uu+6,7: DRAW 1,0: 

PLOT uu- 9,6: DRAW 1,0: 

PLOT uu+7,6: DRAW 1,0: 

PLOT uu- 8,8: DRAW 2,0: 

PLOT uu+5,8: DRAW 2,0 

7305 PLOT uu-9,5: DRAW 1,0: 

PLOT uu+7,5: DRAW 1,0: 

PLOT uu- 7,9: DRAW 13,0: 
PLOT uu-7,10: DRAW 13,0: 
PLOT UU-6,11: DRAW 11,0: 
PLOT UU- 11 , 2 : DRAW 1,0 
7310 PLOT uu+8,2: DRAW 1,0: 

PLOT uu- 4,12: DRAW 7,0: 
PLOT uu-15,1: DRAW 1,0: 
PLOT UU+13,1: DRAW 1,0: 
PLOT uu- 2,13: DRAW 3,0 
7315 PLOT uu- 10 , 8 : DRAW 1,0: 

PLOT uu+8,8: DRAW 1,0: 

PLOT uu-9,9: DRAW 1,0: 

PLOT uu+7,9: DRAW 1,0: 

PLOT uu-10,7: DRAW 1,0: 
PLOT uu+8,7: DRAW 1,0: 

PLOT uu- 9,10: DRAW 1,0: 
PLOT uu+7,10: DRAW 1,0 
7320 PLOT uu- 8,11: DRAW 1,0: 

PLOT uu+6,11: DRAW 1,0: 
PLOT uu- 8,12: DRAW 15,0: 
PLOT UU- 7,13: DRAW 13,0 
732 5 PLOT uu- 10 , 3 : DRAW 1,0: 

PLOT uu+7,3: DRAW 1,0: 

PLOT uu- 5,14: DRAW 9,0: 
PLOT uu-14,2: DRAW 2,0: 
PLOT uu+10,2: DRAW 2,0 
7330 PLOT uu-3,15: DRAW 5,0: 

PLOT uu- 1, 16 : PLOT uu , 16 : 
PLOT uu-17,1: DRAW 1,0: 
PLOT uu+14,1: DRAW 1,0 
7335 INVERSE 1: PLOT uu-10,8: 
DRAW 0,-1: DRAW 1,0: 

DRAW 0,-2: DRAW 1,0: 



DRAW 0,-1: DRAW 2,0: 

PLOT uu+9,8: DRAW 0,-1: 
DRAW -1,0: DRAW 0,-2: 

DRAW -1,0: DRAW 0,-1: 

DRAW -2,0 

7340 INVERSE 0: PLOT uu-10,10: 

DRAW 0,1: DRAW 1,0: DRAW 0 
,2: DRAW 1,0: DRAW 0,1: 

DRAW 2,0: PLOT UU+9,10: 
DRAW 0,1:: DRAW -1,0: 

DRAW 0,2: DRAW -1,0: 

DRAW 0,1: DRAW -2,0 
7345 PLOT uu-8,15: DRAW 15,0: 

PLOT uu-7,16: DRAW 13,0: 
PLOT uu- 5,17: DRAW 9,0: 
PLOT uu- 3,18: DRAW 5,0: 
PLOT uu- 1,19: PLOT uu, 19 
7350 INVERSE 1: PLOT uu-10,11: 
DRAW 0,-1: DRAW 1,0: 

DRAW 0,-2: DRAW 1,0: 

DRAW 0,-1: DRAW 2,0: 

PLOT uu+9,11: DRAW 0,-1:: 
DRAW -1,0: DRAW 0,-2: 

DRAW -1,0: DRAW 0,-1: 

DRAW -2,0 

7352 PLOT uu- 8,6: DRAW 2,0: 

PLOT uu+4,6: DRAW 3,0 
7355 INVERSE 0: PLOT uu-10,13: 

DRAW 0,1: DRAW 1,0: DRAW 0 
,2: DRAW 1,0: DRAW 0,1: 

DRAW 2,0: PLOT uu+9,13: 
DRAW 0,1:: DRAW -1,0: 

DRAW 0,2: DRAW -1,0: 

DRAW 0.1: nRAW -2.0 
DRAW 2,0: PLOT uu-t-9,22: 
DRAW 0,1:: DRAW -1,0: 

DRAW 0,2: DRAW -1,0: 

DRAW 0,1: DRAW -2,0 
7360 PLOT uu- 8,18: DRAW 15,0: 

PLOT uu-7,19: DRAW 13,0 
7365 PLOT uu- 5,20: DRAW 9,0: 

PLOT uu-3,21: DRAW 5,0: 
PLOT uu- 1,22: PLOT uu,22: 
PLOT uu-6,4: PLOT uu+5,4 
7370 INVERSE 1: PLOT uu-10,14: 
DRAW 0,-1: DRAW 1,0: 

DRAW 0,-2: DRAW 1,0: 
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DRAW 0,-1: DRAW 2,0: 

PLOT uu+9,14: DRAW 0,-1:: 
DRAW -1,0: DRAW 0,-2 : 

DRAW -1,0: DRAW 0,-1: 

DRAW -2,0 

7375 INVERSE 0: PLOT uu-10,16: 

DRAW 0,1: DRAW 1,0: DRAW 0 
,2: DRAW 1,0: DRAW 0,1: 

DRAW 2,0: PLOT uu+9,16: 
DRAW 0,1:: DRAW -1,0: 

DRAW 0,2: DRAW -1,0: 

DRAW 0,1: DRAW -2,0 
7380 PLOT uu- 8,21: DRAW 15,0: 

PLOT uu-7,22: DRAW 13,0 
7385 PLOT uu- 5,23: DRAW 9,0: 

PLOT uu- 3,24: DRAW 5,0: 
PLOT uu- 1,25: PLOT uu,25: 
PLOT uu- 6,6: DRAW 0,-1: 
PLOT uu+5,6: DRAW -1,0 
7390 INVERSE 1: PLOT uu-10,17: 
DRAW 0,-1: DRAW 1,0: 

DRAW 0,-2: DRAW 1,0: 

DRAW 0,-1: DRAW 2,0: 

PLOT uu+9,17: DRAW 0,-1:: 
DRAW -1,0: DRAW 0,-2: 

DRAW -1,0: DRAW 0,-1: 

DRAW -2,0 

7392 PLOT uu- 8,12: DRAW 3,0: 

PLOT uu+4,12: DRAW 3,0 
7395 INVERSE 0: PLOT uu-10,19: 

DRAW 0,1: DRAW 1,0: DRAW 0 
,2: DRAW 1,0: DRAW 0,1: 

DRAW 2,0: PLOT uu+9,19: 
DRAW 0,1:: DRAW -1,0: 

DRAW 0,2: DRAW -1,0: 

DRAW 0,1: DRAW -2,0 
7400 PLOT uu- 8,24: DRAW 15,0: 

PLOT UU- 7,25: DRAW 13,0 
7402 PLOT uu- 8,10: DRAW 3,0: 

PLOT uu+4,10: DRAW 4,0 
7405 PLOT uu- 5,26: DRAW 9,0: 

PLOT uu- 3,27: DRAW 5,0: 
PLOT uu- 1,28: PLOT uu,28: 
INVERSE 1: PLOT uu-7,5: 
DRAW 1,0: DRAW 0,1: PLOT U 
u+6,5: DRAW -1,0: DRAW 0,1 
7410 PLOT uu- 5,7: DRAW 0,-2: 

PLOT uu+4,7: DRAW 0,-2 
7415 PLOT uu- 10 , 20 : DRAW 0,-1: 
DRAW 1,0: DRAW 0,-2: 

DRAW 1,0: DRAW 0,-1: 

DRAW 2,0: PLOT uu+9,20: 
DRAW 0,-1:: DRAW -1,0: 

DRAW 0,-2: DRAW -1,0: 

DRAW 0,-1: DRAW -2,0 
7420 INVERSE 0: PLOT uu-10,22:. 


DRAW 0,1: DRAW 1,0: DRAW 0 
, 2 : DRAW 1,0: DRAW 0,1: 

7425 PLOT uu- 8,27: DRAW 15,0: 

PLOT uu-7,28: DRAW 13,0 
7430 PLOT uu- 5,29: DRAW 9,0: 

PLOT uu- 3,30: DRAW 5,0: 
PLOT uu- 1, 28 : PLOT uu,31: 
INVERSE 1: PLOT uu-8,15: 
DRAW 4,0: PLOT uu+3,15: 
DRAW 4,0: PLOT uu-7,14: 
DRAW 3,0: PLOT uu+3,14: 
DRAW 3,0 

7435 PLOT uu+8,10: PLOT uu-4,7: 
DRAW 0,1: DRAW -3,0: 

DRAW -1,1: DRAW 1,1: 

DRAW 1,-1: DRAW 1,1: 

DRAW 1,-1: PLOT uu+3,7: 
DRAW 0,1: DRAW 3,0: DRAW 1 
,1: DRAW -1,1: DRAW -1,-1: 
DRAW -1,1: DRAW -1,-1: 

PLOT uu- 6,11: DRAW 2,2: 
PLOT uu+5,11: DRAW -2,2 

7440 PLOT uu-4,11: PLOT uu+3,11 
7450 INVERSE 1: PLOT uu-3,13: 

DRAW 0,1: DRAW 1,0: DRAW 1 
, - 1 : DRAW -2,-2: PLOT uu,13 
: DRAW 1,1: DRAW 1,0: 

DRAW -5,-5 

7460 PLOT uu-4,6: DRAW 6,6: 

PLOT uu-4,4: DRAW 6,6: 

PLOT uu-2,4: DRAW 4,4: 

PLOT uu , 4 : DRAW 2,2 
7470 PLOT uu+2,4: DRAW 1,1: 

PLOT uu+4,4: DRAW 1,0: 

PLOT uu-6,4: PLOT uu-10,3: 
DRAW 19,0 
7480 POR w=0 TO 3 
7490 IF w=l THEN GO TO 7550 
7500 PLOT uu- 10 , 26-w: DRAW 9,9: 

DRAW 10,-10: PLOT uu-10,22 
-w: DRAW 9,9: DRAW 10,-10: 
DRAW -4,-4: PLOT uu-8,20-w 
: DRAW 7,7: DRAW 8,-8 
7510 PLOT uu-7, 17-w: DRAW 6,6: 

DRAW 5,-5: PLOT uu-4,16-w: 
DRAW 3,3: DRAW 3,-3: 

PLOT uu- 8 , 22-w: DRAW 7,-7: 
DRAW 9,9 

7520 PLOT uu- 8 , 26-w: DRAW 7,-7: 
DRAW 7,7: PLOT uu-6,28-w: 
DRAW 5,-5: DRAW 5,5: 

PLOT uu-4 , 30-w: DRAW 3,-3: 
DRAW 3,3 
7530 NEXT w 

7540 INVERSE 0: GO TO 7980 


32 SUPERSINC® 2/84 


7550 PLOT uu-14,2: DRAW 27,0 
7560 PLOT uu- 2,13: DRAW 4,0: 

PLOT uu-3,8: DRAW 4,0: 

DRAW 1,-1: DRAW -4,0: 

DRAW -1,-1: DRAW 6,0: 

DRAW -1,-1: DRAW -6,0: 

DRAW -1,-1: DRAW 8,0 
7600 PLOT uu- 17 , 1 : DRAW 33,0 
7610 PLOT uu- 5,13: DRAW 1,-1: 

DRAW 7,0: DRAW 1,1: PLOT U 
u-7,11: DRAW 13,0: DRAW 1,- 
1: DRAW -15,0: DRAW 1,-1: 
DRAW 13,0 
7620 GO TO 7500 

7985 IF g ( zz) =128 THEN LET t=30 
- ( INT ( 2 . 9- 1/10) ) *10 ' 

7986 IF g (zz) =128 AND t<30 

THEN LET rr=l 

7987 IF g ( zz) =128 AND t<30 

THEN GO TO 8002 

7989 IF g ( zz) <>128 THEN LET w 
w=g (w) 

7990 FOR w=zz TO mm-1: LET g(w)= 
g(w+l): NEXT w: LET mm=mm- 1 

7996 PLOT 0,0: DRAW 255,0 

7999 GO TO 8002 

8000 LET ss=ss+1000 

8001 GO TO 5005 

8002 OVER 0: INVERSE 1: PLOT i (a 


, 1) , i (a , 2) : DRAW d(a)-i(a,l 
) ,e (a) -i (a, 2) 

8010 PLOT i(a,l) +(i (a,l) <255) ,i ( 
a, 2) - (i (a,l) =255) : DRAW d (a 
) - i (a , 1) ,e (a) -i (a,2) 

8020 PLOT i (a,l) — (i (a,l) >0) ,i (a, 
2) - (i (a,l) =0) : DRAW d(a)-i( 
a , 1) ,e (a) -i (a , 2) : INVERSE 0 

8030 PRINT AT 0,10;" 

OVER 1; INK 9 ; AT 0,1 
0; "PUNTEGGIO " ; ss 
8035 IF dd=l THEN PRINT AT y,x; 
"X" 

8038 LET dd=0 
8040 FOR w=a TO b 
8045 LET h=w+l 
8050 LET e (w) =e (h) 

8053 LET d (w) =d (h) 

8056 LET f(w)=f(h) 

8058 LET i (w , 1) = i (h , 1) 

8059 LET i (w,2) =i (h,2) 

8060 NEXT w 
8070 LET b=b- 1 

8080 IF rr=l THEN GO SUB 6214 

8090 LET rr=0 

8200 GO TO 100 

9000 STOP 

9005 CLEAR 

9010 SAVE "missile" LINE 10 
9999 STOP 


Per ricevere la cassetta contenente 
i programmi del numero 1 di SUPERSINC, 
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di Patrick Garfield 

trad. e adatt. di 

Lucio Bragagnolo 


Siete davvero in forma? Verificate 
i vostri bioritmi con Fatato di que- 
sto programma 


L e capacità di plottaggio in alta riso- 
luzione dello Spectrum sono qui 
utilizzate per consentirvi di rappresen- 
tare i vostri bioritmi - i cicli biologici 
che secondo diversi studiosi determi- 
nano il nostro stato di forma fisica, 
emotiva ed intellettuale. Avendo una 
stampante, potrete ottenere anche 
l’hard copy delle varie opzioni previste 
dal programma, magari facendovi pa- 
gare dagli amici... 

Può darsi che la teoria dei bioritmi sia 
già familiare a molti di voi, tuttavia 
penso che un minimo di informazione 
a questo proposito non guasti. 

Verso l’inizio del secolo un dottore te- 
desco di nome Wilhelm Fleiss e uno 
psicologo australiano (Herman Swobo- 
da) scoprirono indipendentemente nel- 
lo stesso periodo che certi problemi fi- 
sici ed emotivi da loro osservati nei ri- 
spettivi pazienti sembravano manife- 
starsi con regolarità ciclica. Dopo ave- 
re condotto ricerche su un numero 
molto ampio di soggetti, conclusero 
che il potenziale fisico ed emotivo di 
ciascuno di essi variava secondo cicli 
della durata di 23 e 28 giorni, a partire 
dalla data di nascita. 

Sviluppi e conferme 

Nel 1920 le teorie dei due studiosi fu- 
rono riprese dal dottor Alfred Telscher 
che, esaminando nel tempo il rendi- 
mento dei suoi studenti, notò nelle va-' 
riazioni una periodicità di 33 giorni. 
Poco dopo questa scoperta la teoria 
dei bioritmi venne utilizzata in Germa- 
nia e in Giappone per sviluppare pro- 
grammi di prevenzione degli incidenti. 
Fuori da queste applicazioni, però, i 
bioritmi rimasero virtualmente inuti- 
lizzati fino al 1970, quando la loro esi- 
stenza fu confermata da ulteriori studi. 
La procedura di calcolo dei btoritmi 
non è molto difficile: tutto ciò di cui 
abbiamo bisogno è conoscere il nume- 
ro dei giorni trascorsi dalla nascita del 
soggetto alla data prescelta per il cal- 
colo per poi determinare i valori dei 
vari cicli. In sintesi, “bioritmi” si occu- 
pa di questo. 


Scegliete un numero... 

Il programma comprende tre opzioni: 
la prima e la seconda producono grafi- 
ci in alta risoluzione dei bioritmi du- 
rante un dato mese di un qualsiasi an- 
no, presentando i tre cicli separata- 
mente oppure tutti insieme, per con- 
sentire un esame dettagliato di un par- 
ticolare ciclo come una visione globale 
della situazione complessiva. L’opzio- 


ne 3 è invece una routine che controlla 
i vostri bioritmi per un anno visualiz- 
zando i periodi in cui i tre cicli si trova- 
no contemporaneamente in prossimità 
di un massimo o di un minimo, il loro 
valore (compreso tra 100 e -100) e il li- 
vello di significato di ogni data, che va- 
ria da 10 a -10 e vi permette di valutare 
con una sola occhiata se sarà una ma- 
gnifica giornata o se invece le peggiori 


Linee 

Commento 

100 

subroutine per il disegno degli assi dei grafici. 

300 

subroutine per il calcolo dei giorni passati dalla data di 
nascita 

400-500 

subroutine usate per l’aggiunta dei titoli ai grafici 

1000 

routine introduttiva 

2000 

routine opzione 2 

3000 

routine opzione 1 

4000 

routine opzione 3 
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disgrazie si abbatteranno su di voi (si 
fa per dire...). 

Come funziona 

Una volta inserito il programma in me- 
moria, salvatelo digitando GO TO 
9999, linea che comprende anche la 
possibilità di eseguire un VERIFY suc- 
cessivo. In fase di caricamento, il pro- 
gramma partirà da solo mostrandovi il 
menu di partenza; scegliete a questo 
punto la vostra opzione e il calcolatore 
vi chiederà le date a lui occorrenti per i 
calcoli. Ricordatevi di inserire gli anni 
per esteso, con quattro cifre! 

Le prime due opzioni visualizzano di- 


» 

rettamente i grafici, mentre l’opzione 3 
calcola i dati necessari alla compilazio- 
ne della tabella. Siccome si tratta di 
un’operazione relativamente comples- 
sa, potrà sembrare per qualche secon- 
do che il vostro Spectrum sia inattivo: 
abbiate solo qualche attimo di pazien- 
za e vedrete apparire sullo schermo le 
date significative o, in mancanza di 
queste, le prime tre lettere del mese 
sotto esame. Ricordo ancora che è pos- 
sibile avere la stampa di ogni opzione, 
digitando “p” su richiesta del compu- 
ter; in caso contrario, schiacciate sem- 
plicemente il tasto ENTER. 

Il programma presenta una struttura 


piuttosto lineare, come potete vedere 
dalla tabella pubblicata: le uniche 
complicazioni sono venute dal proble- 
ma di far capire allo Spectrum come 
determinare gli anni bisestili, col risul- 
tato di dare ad alcune linee del pro- 
gramma una certa complessità. Gn 
compitino per i più intraprendenti: 
provate a realizzare una routine simile 
a quella dell’opzione 3 che tenga conto 
dei giorni critici (quelli caratterizzati 
da uno o più cicli che si intersecano o 
attraversano lo zero) e semicritici (il 
giorno precedente e successivo a un 
giorno critico), di grande importanza 
nella teoria dei bioritmi. 


Bioritmi 

versione per ZX Spectrum 16K/48K 

20 GO TO 1000 

50 DATA 31 , 28+ ( 1 AND (m>2 

AND INT (yy/4) =yy/4) ) ,31, 3 
0,31,30,31,31,30,31,30,31,3 
1 

110 PLOT x+4-xx*6,72 

120 IF x/ 60 INT (x/6) THEN 
RETURN 

130 PLOT x+4-xx*6 , 73 : LET date = 
date+1 

140 RESTORE 50: FOR q=l TO m: 
READ c: NEXT q 

150 IF (m=2 AND (INT (yy/4) =yy/ 

4) ) THEN LET c=29 

160 IF NOT (INT ( (date- 1) /7 ) = (d 
ate-l)/7 AND date>l) THEN 
GO TO 190 

170 FOR w=72 TO 75: PLOT x+4-xx 
*6,w: NEXT w 

180 IF (x-xx*6)/8<28 THEN 

PRINT AT 13 , (x-xx*6) /8 ;dat 
e- 1 : PRINT AT 14, (x-xx*6) /8 
;a$ ( (m-1) *3+1 TO m*3) 

190 IF date>C AND NOT (INT (y/4 
) =y/4 AND m=2) THEN LET m= 
m+1: LET date=l 

200 IF date>c+l THEN LET m=m+l 
: LET date=l 

210 RETURN 

310 RESTORE 50: LET mo=0: FOR s 
=1 TO m-1: READ q: LET mo=m 
O+q: NEXT S 

320 LET ye= (yy- 1900) *365+ INT (( 
yy-1901) /4) 

330 LET t=d+mo+ye 

350 RETURN 

400 FOR a=0 TO 40 STEP b: 

. PLOT 108+a , 173-c: NEXT a: 
RETURN 


500 PRINT AT 3 , 0 ; b$ ( (ww- 1) * 12+1 
TO (ww-1) *12+13) : RETURN 
1010 CLS 

1020 LET a$="GENFEBMARAPRMAGGIUL 
UGAGOSETOTTNOVDICGENFEB" 
1030 LET b$=" intellettualemozion 
ale fisico " 

1040 PRINT "scegli 1 ' opzione: ' 
"1) tutti e tre i cicli most 
rati separatamente" ,,n 2) tu 
tti i cicli mostrati insiem 
e" ,,M 3)la lista dei punti e 
stremi per un periodo di do 
dici mesi" 

1050 INPUT dd 
1060 CLS 

1070 INPUT "giorno del mese di n 
ascita ";d 

1080 INPUT "mese ";m 
1090 INPUT "anno ";y: LET yy=y+ ( 
1900 AND y<1900) : GO SUB 30 
0 

1100 LET dob=t : INPUT "mese scel 
to per il calcolo ";v: 

LET m=v 

1110 INPUT "anno " ;y: LET yy=y+ ( 
1900 AND y<1900) : LET u=l: 
LET d=l : GO SUB 300 
1120 LET new=t 
1130 LET dif=new-dob 
1140 LET xx=dif 
1150 LET ww=l : IF dd=l THEN 
GO TO 3000 

1160 IF dd=3 THEN GO TO 4000 
2010 PRINT AT 0,0;" intellett. = 
" : LET b=8 : LET c=2: 

GO SUB 400 

2020 PRINT " emozionale = ": 

LET b=2 : LET c=10: 

GO SUB 400 

2030 PRINT " fisico = ": 

LET b=4 : LET c=18: 

GO SUB 400 
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2040 LET date=l: LET xx=dif 
2050 FOR x=xx*6 TO 250+xx*6 
2060 LET y=72+60*SIN (x/99*PI) 
2070 IF x/6=INT (x/6) THEN 
PLOT x+4-xx*6,y 

2080 LET y=72+60*SIN (x/99*PI/2 
3*33) 

2090 IF x/2=INT (x/2) THEN 
PLOT x+4-xx*6,y 

2100 LET y=72+60*SIN (x/99*PI/2 
8*33) 

2110 PLOT x+4-xx*6,y 
2120 GO SUB 100 
2130 NEXT x 

2140 INPUT "premi p per stampare 
" ? v$ : IF v$="p" THEN 
COPY 

2150 STOP 

3010 GO SUB 500 

3020 LET date=l : LET xx=dif 

3030 FOR x=xx*6 TO 250+xx*6 

3040 LET y=72+60*SIN (x/99*PI) 

3050 PLOT x+4-xx*6,y 

3060 GO SUB 100 

3070 NEXT x 

3080 LET date=d : LET xx=dif: 

LET m=v 

3090 INPUT "premi p per stampare 
" ; v$ : IF v$="p" THEN 
COPY : LPRINT : LPRINT : 
LPRINT : LPRINT 
3100 CLS : LET ww=ww+l 
3110 GO TO 3040+ww*40 
3120 GO SUB 500 
3130 FOR x=xx*6 TO 250+xx*6 
3140 LET y=72+60*SIN (x/99*PI*3 
3/28) 

3150 GO TO 3050 
3160 GO SUB 500 
3170 FOR x=xx*6 TO 250+xx*6 
3180 LET y=72+60*SIN (x/99*PI*3 
3/23) 

3190 GO TO 3050 
3200 STOP 

4010 PRINT " alti e bassi": 

PRINT "data int em 

o fis sig": LET gg=0: 
LET date=d: FOR x=xx TO xx 



+ 365 


4020 

PRINT AT 2, 

0 ; a$ ( 3*m- 2 TO 3* 


m) - 



4030 

LET 

gg=0: LET date=d 

4040 

FOR 

x=xx TO 

xx+365 

4050 

LET 

aa=SIN 

(x*PI*2/33) 

4060 

LET 

bb=SIN 

(x*PI*2/28) 

4070 

LET 

cc=SIN 

(x*PI*2/23) 


4080 RESTORE 50: FOR q=l TO m: 

READ c: NEXT q 
4090 LET ch=0 

4100 IF (m=2 AND (INT (yy/4) =yy/ 
4) ) THEN LET c=29 
4110 LET date=date+l 
4120 IF date>31 AND m=12 THEN 

LET m=l : LET date=l: LET y 
y=yy+l: LET ch=l 

4130 IF date>c AND NOT (INT (y/4 
)=y/4 AND m=2) THEN LET m= 
m+1: LET date=l : LET ch=l 
4140 IF date>c+l THEN LET m=m+l 
: LET date=l : LET ch=l 
4150 IF (ch=l AND gg<20) THEN 
PRINT AT gg+2 , 0 ; a$ ( 3*m- 2 
TO 3*m) 

4160 IF (aa+bb+cc<2. 4) AND (aa+b 
b+cc>-2 . 4) THEN GO TO 4300 


4170 LET gg=gg+l 

4180 PRINT AT gg+1, 0;date;TAB 2; 

"-"?m;"-";yy_1900;" "; 

4190 IF aa<0 THEN PRINT TAB 10; 

Il II . 9 

” f 

4200 PRINT TAB 11;ABS (INT (aa*l 

00 )); 

4210 IF bb<0 THEN PRINT TAB 16; 

Il _ Il . ' 

4220 PRINT TAB 17;ABS (INT (bb*l 

00 )); 

4230 IF CC<0 THEN PRINT TAB 22; 

Il _ Il • 

4240 PRINT TAB 23;ABS (INT (cc*l 

00 ) ) ; 

4250 IF cc<0 THEN PRINT TAB 29; 

Il II . 

” r 

4260 LET ee=ABS (aa+bb+cc) - 2 . 3 : 
LET ee=INT (ee/7*100+. 5) : 
PRINT TAB 30 ; ee 

4270 IF gg< 20 THEN GO TO 4300 
4280 INPUT "premi p per stampare 
" ;v$: IF v$="p" THEN 
COPY 

4290 LET gg=-2: CLS 
4300 NEXT x 

4310 INPUT "premi p per stampare 
" ; v$ : IF v$="p" THEN 
PRINT AT gg+2 , 0 ; " ": 

COPY 

4320 STOP 

9999 SAVE "bioritmi" LINE 1: 

PRINT "VERIFY": VERIFY "bi 
oritmi": CLS : PRINT " O. K 

II 
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A caccia di cristalli su un lonta- 
no pianeta, per la difesa della 
terra! 

E cco una avventura spaziale che non 
mancherà di affascinarvi. Il gioco 
inizia nelle caverne del pianeta Zaphod 
dove vi sono dei particolari cristalli 
(rappresentati dalla lettera O in inver- 
so) indispensabili alla sopravvivenza 
della Terra. Voi siete stato inviato sul 
pianeta col compito di raccoglierne il 
più possibile, evitando però le insidie 
nascoste rappresentate da: 

— un mostro (carattere £), chiamato 
TRI HEX, che cercherà di ostaco- 
lare il Vostro cammino; 

— dei cunicoli nascosti (carattere 
grafico cod. 8 - grapichs shift A) 
attraverso i quali scivolerete nelle 
caverne sottostanti. Per risalire al- 
la ricerca dei cristalli dovrete tro- 
vare un elevatore (lettera E in in- 
verso); 

— un trasportatore di materia (carat- 
tere “ in inverso) che vi invierà sul 
pianeta chiamato DX4; per fare ri- 
torno su Zaphod dovrete cercare 
uno shuttle (lettera S in inverso). 

Il tutto tenendo inoltre presente il tem- 
po a disposizione e la possibilità che i 
cunicoli siano senza fondo o il traspor- 
tatore di materia si guasti. 

Per fare ritorno sulla terra, dopo aver 
raccolto i cristalli, dovrete prendere la 
vostra astronave situata sul lato 
sinistro/alto dello schermo e rappre- 
sentata da una H in inverso, 
il gioco è stato realizzato totalmente in 
BASIC e, essendo quest’ultimo abba- 
stanza lento nello ZX81, la velocità ne 
risente per cui è possibile evitare con 
relativa facilità sia il mostro che le al- 
tre difficoltà presenti, salvo il caso che 
un cunicolo o il trasportatore di mate- 
ria blocchino il passaggio fra le caver- 
ne per cui, inevitabilmente, dovrete ac- 


cedervi. 

Un altro motivo che può rendere con- 
veniente entrare in un cunicolo o nel 
trasportatore di materia sta nel fatto 
che quando si cade nelle caverne infe- 
riori, o si ritorna a quelle superiori o si 


fa ritorno dal pianeta DX4, vi viene as- 
segnato un supplemento di tempo a di- 
sposizione per cui è possibile allunga- 
re notevolmente il gioco. 

Passiamo ora all’esame del program- 
ma: 


Linee Commento 

1-45 REM iniziale nella quale verrà inserito il linguaggio 

macchina contenuto nella stringa M$ con il quale viene 
effettuata l’inversione del video 

100-120 presentazione del gioco e richiesta per le istruzioni 

130-400 visualizzano le istruzioni del gioco 

400-490 predisposizione nelle variabili iniziali 

520-625 visualizzano le caverne di Zaphod 

630-780 ciclo principale che provvede al movimento del mostro 

e del vostro carattere rappresentato da un asterisco e 
controlla il carattere incontrato rimandando alle relati- 
ve routine 

1000-1030 routine cui accede quando si viene catturati dal mostro 
TRI HEX 

1040-1110 routine finale che segnala se è stato fatto il record e 
chiede se si vuol fare un’altra partita 

2000-2060 routine cui si accede quando si fa ritorno sulla terra con 
la propria astronave 

3000-3030 routine cui si accede quando il tempo a disposizione è 
scaduto 

4100-4130 routine che effettua il flash del video. Viene chiamata 
quando si incontra il trasportatore di materia o si fa ri- 
torno dal pianeta DX4 

4140-4239 routine che viene chiamata quando si incontra il tra- 
sportatore di materia 

4240-4310 routine cui si accede quando si prende uno shuttle per 
far ritorno dal pianeta DX4 

7000-7180 routine cui si accede quando si scivola in un cunicolo e 
si scende al livello inferiore 

8000-8160 effettuano il ritorno dal livello inferiore alle caverne dei 
cristalli 

9000-9040 provvede a far apparire sullo schermo i simboli relativi 
alle varie situazioni di gioco (caverne inferiori - pianeta 
DX4) 

9800-9940 handicap del programma: può capitare che quando si 
incontra un cunicolo o il teletrasportatore di materia, il 
primo sia senza fine e il secondo si guasti. In questo ca- 
so siete stati sfortunati ed il gioco finisce. 

9950-9970 salvataggio del programma. 


I cristalli di Zaphod 
versione per ZX81 16K . 


1 REM E 
' PAUSE 

2 REM 


RND/*F7 SRUE ThN LEM 


EtKNl 


10 

LET 

16: 

397 

20 

LET 

043 

035 

248 

201 

30 

FOR 

35 

P0KE 


ZZ=1+PEEK 16396 +256 *PE E 


M$="042 
126 254 
198 128 
M = 16514 


012 064 006 023 
118 032 003 016 
112 024 242 1 " 

T0 16533 


M , URL M$( T 0 3) 
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I CRISTALLI DI 


UUOI LE ISTRUÌ IO 


INKEY $ = " 5 


40 LET M$=M$ (5 TO 
45 NEXT M 
100 PRINT TRE 

■aascwB 

110 PRINT , ," 

NI? (S/N) " 

120 GOTO 120+ (10 AND 
) + ( 280 AND INKEY $ = " N " ) 

130 PRINT AT 2,0; “SEI STATO INU 
IATO SUL PIANETA ZAPHOD PER RA 
CCOGLIERE DEI CRI- STALLI INDISP 
ENSABIL I ALLA 30-" 

140 PRINT "PRA'JU IUENZA DELLA TE 
RP A " 

150 PRINT "I CRISTALLI SI TROUA 
NO NELLE CA-UERNE ALL - INTERNO DE 
L PIANETA" 

160 PRINT "IN ESSE INCONTRERAI 
ANCHE DIUER-SI OSTACOLI" 

170 PRINT "- UN MOSTRO CHIAMATO 
TRI HEX CHE CERCHERÀ - DI UCCIO 
ERTI" 

180 PRINT "- DEI CUNICOLI CHE T 
I FARANNO CADERE NELLE CADER 

NE INFERIORI PER RISALIRE DO'JRA 
I CERCARTI GLI ELEUAT OR I ' 


190 PRINT 
ORI DI MATE- 
NNO SU UN 
X4 : PER RI- 
DOMRAI TRO- 
200 PRINT 


DEI TELETR ASPORT AT 
RIA CHE TI PORTERÀ 
PIANETA CHIAMATO D 
TORNARE SU ZAPHOD 
DARE UNO SHUTTLE” 


NEW LINE PER CONTINI 


INPUT 
CLS 

PRINT "CARATTERI DEL GIOCO: 


240 
245 
ERNE” 
250 
255 
UE" 
260 
265 
270 
275 
E DI 
580 


PRINT , , 
PRINT , , 

PRINT , , 
PRINT ,, 

PRINT , , 
PRINT , .. 
PRINT 
PRINT , , 
MATERIA" 
PRINT 


* = TU" 

■ = MURO DELLE CAD 

® = CRISTALLI" 

SI = LA TUA ASTRONA 

Ì = CUNICOLO" 

H = ELEVATORE" 

B = SHUTTLE" 

9 = TELETRASPORTAR 


NEU LINE PER CON 


282 

285 

290 

300 

305 

310 

315 

320 

330 


INPUT Z* 
CLS 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


PER MUOUERT I : " 


, , "5 - 
, , ” R - 


"3 - 


H SINISTRA' 
IN BASSO" 
IN ALTO" 

A DESTRA" 


BUONA FORTUNA 
PREMI UN TASTO P 


EP INIZIARE 


390 IF INKEY* =" " THEN GOTO 390 

400 CLS 

450 LET H =0 

455 LET T I =240 

460 LET F =0 

465 LET C=0 

470 LET Y = 0 

480 LET G =0 

490 LET 2=0 

520 FAST 

525 CLS 

530 LET A = ZZ +67 
540 FOR D = 1 TO 19 

ri rri své°é 

560 NEXT D 
570 PRINT AT 0,0, 






585 PRINT AT 4,20; CHR$ 0; AT 17, 
22 CHR $ 0, AT 8.2; CHR $ 0,AT 18,4; 
CHR* 0; AT 16,6; CHR* 0;AT 10,8; CH 
R $ 0; AT 10, 10; CHR $ 0; AT 13,12;CH 
R $ 0 ; AT 2.14; CHR $ 0 ; AT 5 , 16 ; CHR $ 

0 ; Af 8,18; CHR * 0 ; AT 6 , 24 ; CHR $ 0 
; AT 2 . 26 ; CHR $ 0 : AT 7 , 28 ; CHR $ 0 

586 ±F F = 1 THEN GOTO 595 

587 FOR D = 0 TO 10 

588 PRINT AT INT (RND+17) +1 , INT 
(RND*29) +1; CHR* 180 

589 NEXT D 

590 FOR D = 0 TO 4 

591 PRINT AT INT (RND+17) +1 , INT 
(RND+30) +1, CHR* 136 

592 NEXT D 

593 PRINT AT 1,1; "ET 

594 PRINT AT INT (RND+17) +1 , INT 
(RND+30) +1, B" 

595 FOR D =0 TO 25 

600 PRINT AT INT (RND*17) +1 , INT 
(RND+29) +1; CHR$ 0 
610 NEXT D 

620 LET 6 = ZZ +36 

621 LET T=B 

622 LET 0=0 


625 

630 

640 

650 

652 

655 

Q ; " 

656 
65? 

659 

660 


IF F = 1 THEN GOTO 9000 
SLOtJ 

POKE A . 23 
POKE B , 12 
LET U=A 
LET R=B 

PRINT AT 21,0; "CRISTALLI "; 
TEMPO " ; T I ; " 

POKE A . O 
POKE B . 0 
LET T I =T I - 1 

LET A = A + ( INKEY $ = " 8 " ) - ( INKEY 


$="5" ) 

665 IF TI<=0 THEN GOTO 30O0 
670 LET A=A+ (33 AND INKEY$="6”) 
-(33 AND INKEY* =" 7") 
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690 IF PEEK (fi) =126 THEN LET fi = 
U 

695 LET B=B+ (33 AND 0=0) -(33 AN 
D Osi) 

715 IF B < =T THEN LET 0=0 

720 IF B:>T+ (16*33) THEN LET 0 = 1 

750 F'OKE 5 , 12 

760 IF PEEK (fi) =12 THEN GOTO 10 
©0 

762 IF PEEK (fi) =134 THEN GOTO 4 
100 

765 IF PEEK (fi) =173 THEN GOTO 2 
000 

770 IF PEEK (fi) =130 THEN LET C= 
C + l 

772 IF PEEK (fi) =139 THEN GOTO 4 
100 

775 IF PEEK (fi) =170 THEN GOTO 3 
000 

777 IF PEEK (fi) =136 THEN GOTO 7 
000 

730 GOTO 630 
1000 CL3 

1020 PRINT "HAI RECUPERATO ";C;" 
CRISTALLI.. Mfi" 

1030 PRINT "TRI HEX TI Hfi PRESO 
E 0 U C C I S 0 " 

1040 IF PEEK 16507 >C THEN GOTO 1 
070 

1045 POKE 16507,0 

1050 PRINT , , "COMUNQUE HAI STfiBI 
L IT 0 IL NUOVO RECORD" 

1060 FOR 1=1 TO 100 
1065 NEXT I 

1070 PRINT .."GIOCHI ANCORA? (5/ 
N) " 

1030 INPUT B$ 

1035 CLS 

1090 IF B$="3" THEN RUN 

1100 print , , -affila- 
li 10 STOP 
2000 CLS 

2010 PRINT "LA TERRA TI E" GRATA 
PER I " ; C 

2020 PRINT "CRISTALLI RACCOLTI S 
U ZAPHOD" 

2030 IF C <7 THEN PRINT " PERO" 
NE HAI PRESI VERAMENTE POCHI PE 
R CUI RITORNA SU ZAPHOD fi PRENDE 
RNE ALTRI" 

2050 IF C <7 THEN LET H = 1 
2060 GOTO 1040 
3000 CLS 

3010 PRINT "IL TEMPO fi TUA DISPO 
SUGNE E" TERMINATO" 

3020 PRINT "LE PORTE DELLE CADER 
NE DI ZAPHODS I SONO CHIUSE E TRI 
HEX TI STA CACCIANDO" 

3030 GOTO 1040 _ 

4100 FOR M = 1 TO^30 
4110 RAND USR 16514 
4115 NEXT M 
4120 FOR M =0 TO 50 
4130 NEXT M 
4140 CLS 

4142 IF G=1 THEN GOTO 4240 

4145 LET G = 1 
4147 LET Y =Y + 1 

4143 IF Y > =3 THEN GOTO 9900 
4160 PRINT "SEI CADUTO NEL TRASP 
ORTATORE DI MATERIA CHE TI HA MA 

NDATO SUL" 

4170 PRINT "PIANETA CHIAMATO Paggi 

4130 PRINT "PER RITORNARE SU ZAP 
HOD DOURAI CERCARTI UNO SHUTTLE 

I I 

4 1 90 PR INT " STAI ATTENTO : ANCHE S 
U faggi C" E UN MOSTRO" 



BUONA FORTUNA 


4220 PRINT ,, 

4225 FOR D = 1 TO 100 

4230 NEXT D 

4231 CLS 
4233 LET Z=1 
4237 LET F=1 

4239 GOTO 520 

4240 CLS 

425 5 PRINT "SEI RITORNATO SU 

4260 PRINT "ORA PUOI CONTINUARE 
A RACCO- GL IERE I CRISTA LLI" 
4265 PRINT 


BUONE FORTUNA 


4290 LET T I =200 

4300 LET G =0 

4302 LET F =0 

4305 LET Z=0 

4307 FOR D =0 TO 100 

4309 NEXT D 

4310 GOTO 520 
7000 CLS 

7010 FOR D = 0 TO 
7020 PRINT 


7030 NEXT D 
70.40 PRINT AT 

7 0 50 P R I NT AT 3,12;“ HU NiiC U N I C 0 L 0 


1, 12; "USE 


3*w 


;:AD 


7060 PRINT AT 5 , 12; "HLIDELLOHSOT 
TO-1" 

7070 PRINT AT 7 , 12; "gSTANTEH" 

7030 PRINT AT 9 , 12 ; "fCERC AT lÉUNl 

1 1 

7090 PRINT AT 1 1 , 12 , “HELEDATOREH 


7095 PRINT AT 13 , 12; "^RITORNARE! 


7100 PRINT AT 15,12; 

DEH" 

7110 PRINT AT 17,12.1 


. IDELLG 

i OD ADI 


120 PRINT AT 19,12; 

SlSras • • 


FOPT 


7130 LET T I =200 
7140 LET F = 1 
7145 LET Y =Y + 1 
7150 FOR O=0 TO 20 

7160 PR INT AT D , 9 ; CHR $ 23 ; AT D , 9 

;CHR$ 0 

7170 NEXT D 

7172 FOR D = 1 TO 100 

7174 NEXT D 

7175 IF Y > =8 THEN GOTO 9800 
7180 GOTO 520 

3000 CLS 

8010 FOR D =0 TO 20 
8020 PRINT "mnam 


3030 NEXT D 
8040 PRINT AT 1 , 13 ; " SE I$R ITORNAT 
0" 

8050 PRINT AT 3 , 13; " ALÌLI0ELL0" 
3060 PRINT AT 5 , 13; "SUPERIORE" 
3070 PRINT AT 7,13; "CONTINUALA" 
3075 PRINT AT 9 , 13; "RACCOGLIERE" 
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3080 PRINT AT 11,13; " IUCR ISTALLI 

I I 

8090 LET F =0 

8100 LET TI =200 

8110 FOR D =20 TO 0 STEP -1 

3120 PRINT RT 0,9; CHR* 23; RT 0,9 

;CHR$ 0 

8130 NEXT D 

3140 FOR 0=1 TO 100 

3150 NEXT 0 

8160 GOTO 520 

9000 IF G = 1 THEN GOTO 9030 
9005 FOR 0=1 TO 4 

9010 PRINT RT INT (RN0*17) +1 , INT 
(RNO*20) +10; ChR$ 170 
9020 NEXT 0 

9025 IF Gol THEN GOTO 9040 
9030 PRINT RT INT (RND*17) +1 , INT 
(RND*30) +1 ; CHR$ 134 
9040 GOTO 625 
9800 C L S 

9810 PRINT "IL CUNICOLO ERfi COLL 
EGRTO CON ILCENTRO OEL PIRNETR 0 
DUE UIUONO IMOSTRI CHE TI HRNNO 
UCCISO" 

9352 FOR 0=1 TO 150 
9854 NEXT 0 
9860 GOTO 1040 
9900 CL5 

9910 PRINT "IL TELETRRSPORTRT ORE 
DI MRTERIR SI E - GUfiSTRTO EO IL 
TUO CORPO" 



9920 PRINT "SI E" DISINTEGRATO N 
ELLO SPAZIO" 

9940 GOTO 9852 
9950 C L E R R 

9960 SfiUE "CRISTALLI ZAPHO0" 

9970 RUN 


Sul prossimo numero 



REM:HW 




— B H E - -W - -F 


Sinclair shopping 2 a parte: come 
trasformare un piccolo Sinclair in un 
sistema ai limiti del professionale 

Nei meandri dello Spectrum: finalmente un 
articolo sull’hardware alla portata di tutti! 

Display file e attributi: ecco come viene 
gestito il video dello Spectrum (più uno 
“scherzo” a sorpresa!) 

Tre topi • Microassembler • La diga • 

(i vostri programmi!) 

Le recensioni del migliore software estero 

Imparare il BASIC con lo Spectrum: 
la recensione 

Lo spazio dedicato ai Club Sinclair italiani 

... e altro ancora sul prossimo numero di 
SUPERSINC 
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di Norman Brooks 

trad. e adatt. di 

Angelo Motta 


Un programma che vi riporterà in- 
dietro nel tempo di qualche secolo 
quando vi erano ancora manieri in- 
festati da feroci dragoni. 


V oi siete il valoroso capitano al qua- 
le è stato affidato il compito di di- 
struggere uno di questi castelli. Per 
portare a compimento la vostra mis- 
sione avete a disposizione 5 cannoni e 
12 proiettili. 

La distanza del cannone dal castello 
verrà determinata casualmente dallo 
ZX per cui dovrete decidere quanta 
polvere da sparo utilizzare (da 25 a 35 
libbre) ed a quale angolazione inclina- 
re il cannone (da 0 a 89 gradi - non 90° 
altrimenti la palla cadrebbe sul canno- 
ne). 

Attenzione però: il rumore dello sparo 
sveglia i dragoni che usciranno dal ca- 
stello (quando sono in volo il tempo si 
fermerà) e cercheranno di bruciare sia 
il cannone che la palla in volo. 
Quando avrete colpito il castello, lo 
ZX81, tenendo conto della potenza 
del, dell’angolazione del cannone e 
dell’altezza del punto colpito, vi asse- 
gnerà un determinato numero di mat- 
toni abbattuti; quando ne avrete abbat- 
tuti almeno 6.000 il castello sarà in ro- 
vina e vedrete i dragoni fuggite alla ri- 
cerca di un nuovo rifugio. Se invece re- 
sterete senza cannoni, o senza muni- 
zioni, o deciderete di abbandonare il 
gioco, allora fuggire perché i dragoni 
vi inseguiranno. 

Il listato del gioco è molto lungo e ri- 
diede un notevole tempo per la digita- 
zione. La grafica è comunque così ben 
fatta che ripaga la fatica necessaria. 



Linee 


Commento 


12-20 

50-75 


80-400 


430-1145 


2000-2990 

2992-2996 

3000-4990 

5000-5500 

6000-6500 

6600-6720 

7000-7340 


7350-7990 


8000-8990 


9000-9990 


presentazione del gioco che rimanda alla subroutine al- 
le linee 9000 in caso di richiesta di istruzioni 
predisposizione delle variabili di controllo del gioco: 
MT = mattoni abbattuti, CN = cannoni a disposizione, 
CP = munizioni a disposizione, RT = identificatore del- 
la ritirata 

predispone casualmente la distanza del cannone dal ca- 
stello e rimanda alle subroutine alle linee 8000 per la 
scena iniziale e 2000 per l’alzo del cannone 
ciclo principale nel quale viene visualizzato lo sparo; 
ogni cinque spostamenti della palla esce dal castello un 
dragone che cercherà di distruggere il cannone o la pal- 
la (se in precedenza avrà distrutto il cannone si dirigerà 
senza scrupoli sulla palla); e, in base a dove verrà colpi- 
to il castello, assegna un determinato numero di matto- 
ni abbattuti 

subroutine che provvede all’alzo del cannone nella posi- 
zione desiderata 
ciclo di ritardo 

uscita del dragone dal castello e tentativo di distruzione 
del cannone o della palla 

subroutine che visualizza l’angolo di elevazione del can- 
none - viene chiamata dalla subroutine alla linea 2000 
visualizza lo sparo 

segnala se il dragone ha distrutto il cannone o la palla 
routine di vittoria in caso si sia riusciti ad abbattere al- 
meno 6000 mattoni del castello. Vengono visualizzati i 
dragoni che fuggono alla ricerca di un nuovo rifugio 
routine cui si accede nel caso si rimanga senza cannoni, 
senza munizioni o si decida di smettere di giocare. Ven- 
gono visualizzati i dragoni che si avventano su di voi. 
scena iniziale. Viene visualizzato il castello, il cannone e 
la situazione di quanti mattoni avete abbattuto ed i can- 
noni e le munizioni che vi restano. In base a quanti mat- 
toni avete abbattuto vedrete il castello in rovina. Viene 
successivamente richiesto di inserire la quantità di pol- 
vere da sparo con cui caricare il cannone e l’angolo di 
elevazione dello stesso 

subroutine che visualizza le istruzioni del gioco 
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Il castello dei dragoni 
versione per ZX81 16K 


12PRINT TAB 4; 


I DRflGONII 


16 PRINT .. ,TAB 
UZIONI ? (S/N) •' 

18 IF INKEY $="" 
20 IF INKEY $ = " S 


IL CASTELLO DE 


3; "UUOI LE ISTR 

THEN GOTO 18 
" THEN GOSUB 90 


00 

50 LET MT =0 
60 LET CN =5 
70 LET CP=1£ 

75 LET RT =0 
30 CLS 
90 RAND 

150 LET N = INT (RND*19) 

200 LET M=N*100+S00 
210 LET G =0 
225 GOSUB 8000 
340 INPUT fl 

350 IF R > 89 THEN GOTO 8950 
400 GOSUB 2000 
430 REM 

440 REM **CICLÙ PRINCIPALE** 

450 REM 
460 CLS 

5O0 LET B=A*PI/1S0 

650 PRINT RT 15 , 27 ; "■ . M ; TAB 27; 

5 1 " ; TRB 27;"U";TAB 27; "■ " TRB 
7; "■ " 

660 PRINT RT 20 , 2 ; ______ 


700 PRINT RT 19 , 20-N; "Or" 

710 GOSUB 6000 
720 LET X 1 =0 
730 LET Y1=0 

750 FOR X = 100 TO M +400 STEP 100 
850 LET Y = (X *TRN B) - (X**2/ (U*20 
0*COS B *COS B) ) 

860 IF Y < =0 AND X<M THEN GOTO 1 
100 

865 IF Y < =0 AND X>=M+150 THEN G 
OTO 1050 


870 PLOT (X/50) +43-2*N iY/50) +5 

890 IF XI >0 THEN UNPLOT (Xl/50) 
+43- (2*N) , (Yl/50) +5 
910 IF X/250=INT (X/250) AND X< 

>0 THEN GOSUB 3000 
920 LET X1=X 
930 LET Y 1 =Y 

1000 IF X > =M AND X < (M + 150) AND Y 
<400 THEN GOTO 1070 
1020 NEXT X 

1050 PRINT AT 12,3; "STIRO OLTRE 
IL BERSAGLIO*" 

1060 GOTO 1120 

1070 PRINT AT 16 ,25; "COLPITO" ; TA 
B 25; "*******" 

1071 IF Y < =400 AND Y>350 THEN LE 
T MT =MT + 1500 

1072 IF Y < =350 AND Y>300 THEN LE 
T MT =MT + 1000 

1074 IF Y < =300 AND Y>200 THEN LE 
T MT =MT +750 

1076 IF Y < =200 AND Y > 100 THEN LE 
T MT =MT +500 

1078 IF Y<=100 THEN LET MT=MT+25 

0 

1080 GOTO 1120 

1100 PRINT AT 12,10;"* TIRO CORT 
0 *" 

1120 LET CP=CP-1 

1125 PRINT AT 21,2; "UUOI CONTINU 
ARE? (S/N) 

1127 IF INKEY$=" " THEN GOTO 1127 
1135 IF INKEY $="N" THEN LET RT=1 
1145 GOTO 80 

2000 REM ** AGGIUSTAMENTO TIRO** 
2020 CLS 

2050 PRINT "CANNONIERE CARICA IL 
CANNONE CON" ;U;" LIBBRE DI POLO 
ERE ED ALZALO A"; A;" GRADI" 

2070 GOSUB 2992 
2100 PRINT . . " SISSIGNOR 
2150 PRINT At 16,6;" 

'■■■■■■" ;_TAB 6; " I 

; T AB 6;". _ 

■ “ ~ — 19,6; "I A 


2170 PRINT AT 
AB 6; " 1/ U „ 

Ì 200 PRINT AT 21,2; 

220T"pRIhn ! ^T"T7 , 13; 6 -CN 
2202 GOSUB 2992 
2210 GOSUB 500© 

2220 IF A >45 THEN GOTO 2650 

2270 FOR X = 1 TO 20 

2280 LET Y = X*T AN (A/130*PI) 

2320 UNPLOT (X+35), 11 
2330 UNPLOT (X+35),10 
2350 PLOT (X+35) , (Y + ll) 

2360 PLOT (X+35) , (Y+10) 

2550 NEXT X 

2600 GOTO 2910 

2650 LET A =90 -A 

2700 FOR Y = 1 TO 20 

2720 LET X=Y*TAN (A/180*PI) 

2740 UNPLOT (Y+35),ll 
2760 UNPLOT (Y +35) , 10 
2780 PLOT X+35, Y+ll 
2790 PLOT X +36, Y+ll 
2850 NEXT Y 
2900 LET A =90 -A 
2920 GOSUB 2992 

2930 PRINT AT 6,0; "CANNONE POSIZ 
IONATO A" , „ 

2940 PRINT A;" GRADI ...... SIGNOR 

E" 

2945 PRINT 

2950 GOSUB 2992 

2965 PRINT "*********" 

2970 PRINT "* FUOCO *" 

2975 PRINT "*********" 

2980 GOSUB 2992 
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•" J IV 

I I ' 


2990 RETURN 
2992 FOR 1 = 1 T 0 25 
2994- NEXT I 
2996 RETURN 

30O0 REM **U0LO DEL DRAGONE** 
3020 LET 0 = INT (RND*2) 

3030 IF G=1 THEN LET 0=1 

3050 IF 0=0 THEN LET P=N+4+INT ( 

RND*4) 

3060 IF 0 = 1 THEN LET P=25-INT ( ( 
(X/50) +43- (2*N) ) /2) + INT (RND*5) 
3070 IF P < 0 THEN LET P = INT ( RND * 

5) 

30S0 IF P >24 THEN LET P 
RND *4) 

3100 FOR R = 1 TO 5 
3110 PP. INT AT 15-R.26;"’ 

3120 PRINT AT 15-R,26;" 

3130 PLOT (X/50) +43-2*N 
3140 NEXT R 
3150 FOR R = 'l TO 4 
3160 PRINT AT 10-R,26;J 
3170 PRINT AT 9-R,25;"T 
-R.. 26; " " ; AT 9-R,25; " 

3200 PLOT (X/50) +43-2*N 
3500 NEXT R 

4000 FOR 0=26 TO 26-P STEP -1 
4020 PRINT AT 7,0-1; 

4030 PRINT AT 7,0+2; 

4040 PRINT AT 6,0-1; 

4060 PRINT AT 6,0+2; 

4070 PRINT AT 5,0-2; 

40S0 PRINT AT 5,0+3; 

4090 PRINT AT 4,0-2; 

4120 PRINT AT 4.0+3: 

4140 PRINT AT 3.0-2; 

4160 PRINT AT 3,0+3; 

4180 PRINT AT 2,0-2; 

4200 PRINT AT 2,0+3; 

4240 PRINT AT 1,0-2; 

4260 PRINT AT 1.0+3; 

4280 PLOT (X/50) +43-2*N , (Y/50) +5 

4300 NEXT 0 

4350 FOR R =7 TO 19 

4400 PRINT AT R,0 + l;"i'' 

4450 PRINT AT R,Q+l;" " 

4460 NEXT R 

4500 IF G =0 AND (0 + l=21-N OR 0 + 1 

=20 -N) THEN G05UB 6600 

4600 IF 0 + 1 = INT ( ( (X/50) +43- (2*N 

) ) /2> THEN GOTO 6700 

4760 FOR R = 1 TO 7 

4300 PRINT AT R,Q-1;" 

4310 PLOT (X/50) +43-2*N . (Y/50) +5 
4320 NEXT R 
4990 RETURN 

5000 REM ** ANGOLO DI ELEU AZIONE* 

5050 FOR R =0 TO 2 

5100 PRINT AT 16 -R *3, 28; R*15 

5200 NEXT R 

5250 PRINT AT 6,23; 45 

5300 FOR R = 0 TO 2 

5350 PRINT AT 5 , 16+ (7-R*3) ; 60+R* 
15 

5400 NEXT R 

5420 PRINT AT 3, 19; "ELEUAZIONE" 
5440 LET R$=" IN GRADI" ✓ 

5460 FOR R = 1 TO 10 

5470 PRINT AT 3+R , 31; R$ (R) 

5430 NEXT R 
5500 RETURN 
6000 REM * *SPARO * * 

6050 LET A $ = " BOOM" 

6060 LET B $ = " " 

6100 FOR 1=1 TO 5 

6150 PRINT AT 19 , 21-N+I; A* ( I) 

6200 NEXT I 

6250 FOR 1=1 TO 5 

6300 PRINT AT 19,21-N+I;B$ 

6350 NEXT I 


:24 - INT ( 

1 • 

7120 

PRINT 

AT 

15,19; "I DRAGONI" 

1 1 

7130 

PRINT 

AT 

16 , 19; "DEUONG CER- 

7140 

PRINT 

AT 

17. 19; "CARSI UN NU 

(Y/50) +5 

0-";TAB 19 

; "UO RIFUGIO" 

7200 

FOR R 

= 11 

TO 2 STEP -1 


7210 

PRINT 

AT 

R , 2 4 ; " V" 

1""';at 10 

7220 

PRINT 

AT 

R , 24 ; " 

7230 

NEXT 

R 


7240 

FOR R 

= 24 

TO 2 STEP -1 

(Y/50) +5 

7250 

PRINT 

AT 

o D " 


6500 RETURN 
6600 REM **DISTRUZ 
6610 LET CN =CN - 1 
6620 PRINT AT 21 
•STATO BRUCIATO" 

6630 LET G=1 
6650 RETURN 
6700 LET CP=CP-1 
6710 PRINT AT 12 
A BRUCIATO LA PALLA" 
6720 GOTO 1125 
7000 REM **UITTORIA** 
7100 PRINT AT 14,19; 


CANNONE** 


2; "IL CANNONE E 


0; "IL DRAGONE H 


HAI UINTQ 


7260 PRINT AT 2,R;' 
7270 NEXT R 
7280 FOR R =3 TO 31 
7290 IF R < = 16 THEN 


PRINT AT 2 ,R; 


7295 IF R > 16 THEN PRINT AT 2,R. 


HAI PERSO 


730© PRINT AT 2,R;" 

7305 NEXT R 
7340 STOP 

7350 PRINT AT 13,21; "I 

7370 IF CN =0 THEN GOTO 7410 
7380 IF RT = 1 THEN GOTO 7400 
7390 PRINT AT 14, 18; "HAI FINITO 
LE " .; T AB 13; "MUNIZIONI" 

7398 GOTO 7440 

7400 PRINT AT 14, 18.; "SEI STATO B 
AT -" 

7404 PRINT AT 15,13.;"TUT0 E CORR 
I" ; TAB 18; "IN RITIRATA" 

7406 GOTO 7440 

7410 PRINT AT 14 . 13.: "TUTT I I CAN 
NO-" 

7415 PRINT AT 15,13; "NI SONO STA 
TI" ; TAB 13; "DISTRUTTI" 

7440 PRINT AT 17,13;"*********** 

7450 PRINT AT 18,18;"* FUGGI 
*" 

19 


7460 

***" 

7472 

7473 

7474 

7475 

7476 

7477 

7478 

7479 

7480 
7432 
7484 

7486 

7487 
7483 

7489 

7490 

7491 

7492 

7493 

7494 

7495 

7496 

7497 
7500 


PRINT AT 


18, "*********** 


PRINT AT 11,24.; 
PRINT AT 11,24.; 
FOR R =24 TO 17 
PRINT AT 12, R; " 
PRINT AT 12, R; " 
NEXT R 

PRINT AT 11,24; 
PRINT AT 12,21; 
FOR R = 1 TO 8 
PRINT AT 12 +R 
PRINT AT 12 +R 
NEXT R 
DIM R $ (7,5) 

LET R $ ( 1 ) 

LET R $ ( 2 ) 

LET R$ (3) 

LET R $ ( 4 ) 

LET R$ (5) 

LET R $ ( 6 ) 

LET R $ ( 7 ) 

FOR R = 1 TO 7 
PRINT AT 21-R 
NEXT R 

DIM D $ ( 13 , 10 ) 


O I L 

V 


-1 


17-2*R; 

17-2*R; 



1; R* (8-R) 
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7510 
7515 
7530 
7535 
7530 
7535 
7540 
7545 
7543 
7550 
7560 
7570 
7530 
7650 
7660 
7670 
7700 
7705 
JP " 
7703 
■ 

773.0 

7712 

I 

7715 

I 

7713 

■ " 

7730 

■ " 

7732 

I 

7735 

I 

7723 

■ " 

7730 

7731 

■i " 

7732 

v 

7735 

JT" 

7738 

JP ” 

7740 

1% n 
7742 

■ ■" 




LET D $ (1) =' 

LET D* (2) =' 

LET D$ (3) =' 

LET D* (4) = ' 

LET D $ (5) =' 

LET D$ (6) =' 

LET D $ (7) =• 

LET D* (8) = ' 

LET D $ (9) =’ 

LET D$il0)=” 

LET D* (11) =" 

LET D* (13) =" 

LET D* (13) ='• 

FOR R = 1 TO 13 

PRINT RT 21-R , 1; D* ( 14 

NEXT R 

DIM fi $ (20 , 18) 

LET fi$ (1) = “ 


LET fi$ (2) = 
LET fi* (3) = 
LET fi* (4) = 
LET fi$ (5) = 
LET fi $ ( 6 ) = 
LET fi* (7) = 
LET A* (8) = 
LET fi $ (9) = 
LET fi* (10)= 
LET fi$ (11) = 
LET fi$ (12) = 
LET fi $ (13) = 
LET fi* (14) = 
LET fi* (15) = 
LET fi* (16) = 
LET fi* (17) = 
LET fi* (13)= 


LET fi* (19)= 

LET fi* (20) = 

FOR R=1 TO 20 

PRINT fiT 22-R .0; fi* (21 

NEXT R 

STOP 

REM **SCENfi INIZ IRLE * 
PRINT fiT 5 ,0, __ 

uu 

| SITUAZIONE 


-R) 




-R) 







1 

MATTONI 

1 


1 

CANNONI 

1 


1 

PALLE 

1 





J| 


3085 

8100 

3105 

3110 

AB 7.; 


PRINT fiT 12,21;' 
PRINT fiT 13,15;" 
PRINT fiT 14,12.;" 
PRINT fiT 15,7;" 

"i jm i 



;t 



j 


IF MT <250 THEN GOTO 8155 
LET E*=" 

LET E = INT (MT/10O0) 

LET F = INT ( (MT-E*1000) /200) 
FOR R =0 TO E 
PRINT fiT 5 +R , 23 , E $ 

NEXT R 

FOR R =0 TO F 

PRINT fiT 6 +E , 23 +R ; E* ( 1 ) 

NEXT R 

PRINT RT 12,33; 

PRINT fiT 8 , 12 ; MT ; TfiB 12 ; CN ; 
12; CP 

IF MT > =6000 THEN GOTO 7100 
IF CN = 0 THEN GOTO 7350 
IF CP=0 THEN GOTO 7350 


3115 PRINT 
8125 PRINT 
3130 PRINT 

3135 PRINT 

■ 

3 133 
3140 

3142 
8144 
3145 

8146 

8147 

3143 
3149 
8150 
3152 
3155 
TfiB 
3200 
3300 
8400 

3500 IF RT = 1 THEN GOTO 7350 
3900 PRINT fiT 2,0; "CANNONE fi ",M 
; " MT DAL CASTELLO" 

3910 PRINT fiT 21,0; "QUANTA POLUE 
RE? (DA 25 fi 35 LBS) " 

8912 INPUT U 

3915 IF U < 25 OR U>35 THEN GOTO 8 
910 

3950 PRINT fiT 21,0; "ELEU AZIONE C 
ANNONE (MAX 39) 

3990 RETURN 

90O0 REM ** ISTRUZIONI** 

9020 PRINT fiT 2,0.: "SEI IL UfiLGRO 
SO CAPITANO CON IL COMPITO DI DI 
STRUGGERE IL Cfi- STELLO DEI DR 
AGONI" 

9030 PRINT "HAI A DISPOSIZIONE 5 
CANNONI E 12 PALLE ...MA... ATT 
ENZ IONE ... IL RUMORE DELLO SPAR 
0 SUEGLIfi I DRAGONI" 

9040 PRINT "QUANDO ESCONO DfiL CA 
STELLO IL TEMPO SI FERMERÀ" E 
CERCHERANNO DI DISTRUGGERTI I CA 
NNONI E LE PALLE LANCIANDO LINO 
IJE DI FUOCO." 

9050 PRINT "SE RIUSCIRAI AD ABBfi 
TTERE ALMENO6000 MATTONI, DISTRU 
GGERfiI IL LORO RIFUGIO E AURAI 

U I NT 0 . MA SE RIMARRAI SENZA 

CANNONI 0" 

[IONI . 



9070 PRINT ..."PREMI UN TASTO PER 
INIZIARE" 

9100 IF INKEY$=" " THEN GOTO 9100 

9990 RETURN 

9995 SfiUE "DRAGONI" 

9999 RUN 


A causa di sensibili problemi di 
interfacciamento con la stampante 
da noi normalmente utilizzata, 
siamo costretti a presentare i listati 
dei programmi per lo ZX81 in modo 
convenzionale. 

Fiduciosi nella vostra 
comprensione, vi promettiamo di 
fare tutto il possibile per poter 
ovviare all’inconveniente in tempi 
adeguati. 
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di Michael Parrish 

trad. e adatt. di 

Marcello Spero 




Come arrestare gli assalti alla vo- 
stra provvista di frutta? 


E cco un nuovo problema. C’è una be- 
stiola, dall’aspetto simile ad un to- 
po, terribilmente ghiotta di frutta, e le- 
tale al solo contatto. La soluzione che 
vi proponiamo è semplice: sparatele! 
Ma quanto riuscirete a sopravvivere? 
Avete un solo modo di scoprirlo: co- 
piate questo programma e provate voi 
stessi. Avrete quattro vite, per comin- 
ciare, ma ne perderete una per ogni 
collisione con l’animaletto, o per ogni 
1000 punti totalizzati da quest’ultimo. 
Guadagnerete 10 punti per ciascun di- 
voratore distrutto, e altri 10 per ogni 
frutto colpito. Al termine di ciascuna 
fase riceverete un bonus di 60 punti. 

Il compito del piccolo divoratore, spe- 
cialmente nelle prime fasi del gioco, è 
più difficile del vostro, e perciò esso 
guadagnerà ben 50 punti per ciascun 
frutto mangiato, 50 punti ogni volta 
che supera e 100 se vi tocca. 

Ce la farete a resistere per tutte e quat- 
tro le fasi? Ognuna è più difficile della 
precedente, mentre per ogni 1000 
punti da voi totalizzati il ciclo ricomin- 
cerà. Per muovervi usate i tasti 6 (giù) 
e 7 (su); 1 o 0 per fare fuoco. 


Linee Commento 

4-48 GO SCJB per la grafica, GO TO per l’introduzione e ini- 

ziai izzazione 

49-881 ciclo principale 

882-900 siete stati morsicati! Perdita di una vita e controllo per 

la fine partita 

901-915 la bestiola vi ha superato 

969-1200 DATA per la grafica 

1292-1294 inserimento CAPS SHIFT 

1290-1450 introduzione; preparazione variabili e schermo 

1499-1535 reinizializzazione variabili e fasi al raggiungimento di 
1000 punti 

1980-21 14 stampa casuale dei frutti e aggiornamento dello scher- 
mo 

2499-3600 aumento della difficoltà 

4199-4240 routine di fine partita 

4885-5010 divoratore colpito! 

8888-9030 controllo su frutti e animale 


Il divoratore pazzo 
versione per ZX Spectru 


4 

6 

10 

29 

31 


REM 
R 

********** 

GO SUB 970 
GO TO 1290 
LET j = 29 : LET v=28: LET a = l 
8: LET b=3 
GO TO 45 

REM punteggio************** 
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32 PRINT AT 0,0; PAPER 0; 

INK 7; "CD: PUNTI ";i;AT 0,1 
4; PAPER 0; INK 7;a$;":PUNT 
I " ; r 

33 RETURN 

35 REM fase i***************** 

40 PRINT AT 10,20; INK 2; 

FLASH 1 ; "FASE 1": GO SUB 2 
500 

42 PRINT AT 10,20;" "; 

AT 16,0;" " ; AT 17,0;" " 

43 RETURN 

45 GO SUB 31 

48 GO SUB 40 

49 REM programma principale*** 

50 LET g = INT (RND* 20 ) 

55 IF g=0 THEN LET g=15 

56 IF g=l THEN LET g=2 
60 FOR h = j TO 0 STEP -1 

63 IF g=p AND h=6 THEN LET i= 
i+50 : GO SUB 2090 
65 IF g=e AND h=8 THEN LET i= 
i+50: GO SUB 2100 

70 IF g=z AND h=12 THEN LET i 
=i+50 : GO SUB 1980 

71 IF g=S AND h=10 THEN LET i 
=i+50 : GO SUB 2050 

80 PRINT AT g,h; INK 0 ; "CD ": 
BEEP .009,40: BEEP .009,20 
: PRINT AT g,h; INK 0;"GE " 

150 IF h=2 THEN LET i=i+50: 

GO SUB 902 

185 IF r>=m AND r<x THEN LET j 
=22: LET r=r+60 : GO TO 2899' 


187 IF r>=k AND r<u THEN LET j 
=16: LET r=r+60 : GO TO 3300 

188 IF r>=q AND r<n THEN LET j 
=10: LET r=r+60 : GO TO 3500 

190 IF r>=d THEN GO TO 1500 
195 IF i>=1000 AND i<=1050 

THEN LET i=i+100: LET t=t 
-1: BEEP 1,0: BEEP 1,10: 
BEEP 1,-10: GO TO 888 
200 IF INKEY$="0" THEN 
GO SUB 8997 

210 IF g=a AND h=b+l THEN 

LET i=i+100 : LET t-t-1: 

GO TO 882 

255 LET a=a+ ( INKEY$ = "6" ) - ( 
INKEY$="7" ) 

275 IF a< 2 THEN LET a = 2 
310 IF a>19 THEN LET a=19 
320 IF a<l THEN LET a=l 
350 PRINT AT a ,b; INK 1;"M"; 

AT a+1 ,b; "Q" ; AT a-l,b;" "; 
AT a+2,b; " " 

880 NEXT h 

881 GO TO 50 

882 REM il divoratore ti urta** 

883 PRINT AT a,b; INK 2; 

FLASH 1 ; "M" ; AT a+l,b; 

INK 2; FLASH 1 ; "Q" 

884 FOR 1=30 TO -20 STEP -3 

885 BEEP 0.009,1: NEXT 1 

888 GO SUB 30 

889 IF t=3 THEN PRINT AT 12,0; 
" " ; AT 13,0;" " 

891 IF t=2 THEN PRINT AT 8,0;" 
" ; AT 9,0;" " 

893 IF t=l THEN PRINT AT 4,0;" 
" ; AT 5,0;" " 

895 IF t=0 THEN GO TO 4200 

896 PRINT AT g,h;" " 

900 GO TO 50 

901 REM il divoratore mangia*** 

902 FOR 1=45 TO 0 STEP -3 

903 BEEP .009,1: NEXT 1 

905 PRINT AT g,h;" " 

910 GO SUB 30 

915 GO TO 50 

969 REM dati per la grafica**** 

970 FOR u=0 TO 143 

980 READ a: POKE USR "a"+u,a 
990 NEXT u 

1000 DATA 126,126,126,60,126,102 
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,198,231 

1100 DATA 0,0,0,0,16,28,255,224 

1104 DATA 40,127,255,15,31,63,10 

0,8 

1110 DATA 1,226,244,248,240,240, 
32,64 

1120 DATA 0,224,240,255,240,240, 
32,16 

1130 DATA 0,0, 40, 127, 255, BIN 10 
101111,255,127 

1141 DATA 40,127,255,255,255,127 
,4,2 

1150 DATA 4,107,107,28,62,62,62, 
28 


1155 DATA 12,8,110,255,255,126,6 
0,24 

1156 DATA 0,0,0,224,240,248,244, 
226 

1157 DATA 0,12,4,15,15,31,47,71 

1159 DATA 0,96, 32, 254, 255, BIN 1 
1110101,255,254 

1160 DATA 60,255,90,60,36,255,18 
9,189 

1161 DATA 1,30,58,118,238,220,24 

8,112 

1165 DATA 8,8.24.36.102.255.255. 


102 

1170 DATA 0,0,0,0,0,0,204,0 
1175 DATA 189,189,60,102,102,102 
,36,231 

1180 DATA 60,255,58,63,60,62,127 
, 127 

1200 RETURN 

1290 REM introduzione*********** 


1291 BORDER 7: PAPER 7: INK 0: 

CLS 

1292 IF INT (PEEK 23658/8) =2* 

INT (INT (PEEK 23658/8)/2) 

THEN GO TO 1294 

1293 GO TO 1295 

1294 POKE 23658, PEEK 23658+8 

1295 PRINT AT 10,0;"Vuoi le istr 
uzioni? (s/n)" 

1296 IF INKEY$="N" THEN CLEAR : 

GO TO 1390 

1297 IF INKEY$="S" THEN CLEAR : 

GO TO 1299 

1298 GO TO 1296 

1299 PRINT AT 0,0; INK 2; " 

*************************** 

*****i. ;AT 9 , 0 ; INK 2; 

"****************** 

**************** ;A T 18,0; 

INK 2; ••**** 

*************************** 



*•• 

1300 PRINT AT 2,0; INK l;"Impedi 
te al divoratore d 

i mangiare la vostra frutta 
. Avete quattro vite, ma 
ne perderete una ogni 

1000 punti totalizzati d 
al divoratore, o selo urter 
ete . " 

1310 PRINT AT 11,0; INK l;"Ci SO 
no quattro fasi, ognuna 
piu' difficile della preced 
ente. Si ripeteranno per ogn 
i 1000 punti che totaliz 
zerete . " 

1349 PRINT AT 20,5; INK 0; 

FLASH 1; "PREMI 'c' PER CON 
TINUARE " 

1350 PAUSE 50 

1351 PRINT AT 20,0; INK 0 ; "M" ; 

AT 21,0; INK 1 ; "Q" : PAUSE 5 
0: PRINT AT 20,0; INK 1;"R" 
; AT 20,1; INK 1;"B";AT 21,0 
; INK 1; "A" ; AT 20,2;"PPPPPP 
PPPPPPPPPPPPPPPPPPPPPP" : 

BEEP .09,0: BEEP .09,10 

1353 PRINT AT 20,1;" 

" ; AT 20,0; 
INK 1; "M" ; AT 21,0; INK 1;" 
Q": PAUSE 20 

1360 IF INKEY$="C" THEN PRINT 
AT 20,0;" " ; AT 21,0;" ": 

GO TO 1370 

1362 GO TO 1349 

1370 PRINT AT 2,0; INK 0;"Guadag 
nerete 10 punti per ogni d 
ivoratore che distruggerete 
, 10 punti se colpirete u 

no dei quattro frutti che 
appaiono a caso, ed ot 

terrete un bonus di60 punti 
per ogni fase superata" 

1375 PRINT AT 11 , 0 ; "Poiché ' , spe 
cialmente durante leprime f 
asi, il compito del di 
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voratore e' piu' difficile 
delvostro, esso guadagnerà' 
50 punti per ogni f 
rutto, 50 punti se ri 

esce a superarvi, 100 punti 
se vi colpisce" 

1376 PRINT AT 21,5; INK 2; 

FLASH 1;" PREMI 'g' PER G 
I OC ARE " 

1377 FOR a=2 TO 0 STEP -1 

1378 PRINT AT 21,a;"CD BEEP . 
09,26: PRINT AT 21,a;"GE 

BEEP .09,30 

1384 IF INKEY$="G" THEN GO TO 1 
390 

1385 NEXT a 

1386 PRINT AT 21,0;" " 

1388 GO TO 1376 

1390 BORDER 4: PAPER 6: INK 1: 
CLS 

,1391 FOR a = 0 TO 21 STEP 1 

1392 PRINT AT a,0; INK 0; "BUONA 

FORTUNA BUONA FORTUNA" 

: BEEP .03, a 

1393 NEXT a 

1394 FOR a=21 TO 0 STEP -1 

1395 PRINT AT a,0;" 

h . 

• 

BEEP .03, a 

1396 NEXT a 

1397 PRINT AT 0,0; INK 7; 

PAPER 0; "CD 

RB" ; AT 10,0; 

INK 0; PAPER 6; "IL TUO NOM 
E, PER FAVORE" ;AT 3,0;" SU. 
..7 GIU'... 6 FUOCO... 

0 " 

1398 INPUT a$ 

1399 PRINT AT 10,0;" 

" ; AT 3,0 

. » 

r 

ii 

1400 LET d=1000 : LET m=260: 

LET x-311: LET k=500: 

LET u=551 : LET q=800: 

LET n=851 : LET i = 0 : LET r = 
0: LET t=4 

1401 PRINT AT 4,0; "M" ; AT 5 , 0 ; "Q" 
; AT 8,0; "M" ; AT 9,0;"Q";AT 1 
2,0; "M" ; AT 13,0; "Q" ; AT 16,0 
; "M" ; AT 17,0; "Q" 

1402 FOR a=l TO 21 STEP 2 

1403 PRINT AT a,l; INK 2 ; " I" 

1405 NEXT a 

1407 FOR a=2 TO 20 STEP 2 
1409 PRINT AT a,l; INK 4 ; "H " 
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1410 NEXT a 

1414 GO SUB 2090 

1415 GO SUB 2000 
1420 GO SUB 2050 
1425 GO SUB 2100 

1430 FOR a=0 TO 21 STEP 1 
1450 GO TO 10 

1499 REM reiniz. fasi********* 

1500 LET m=m+1000: LET x=x+1000: 

LET k=k+1000 : LET u=u+1000 

1510 LET d=d+1000 : LET q=q+1000: 
LET n=n+1000 

1513 FOR w=21 TO 1 STEP -1 
1515 PRINT AT w,14; PAPER 6;" 

": BEEP .03, 
w 

1520 NEXT w 

1532 PRINT AT g,h;" " ; AT a,b;" 

" ; AT a+l,b; " " 

1535 GO TO 10 

1980 REM frutti a caso********** 

1991 GO SUB 30 

2000 LET z= INT (RND*17)+2 

2001 BEEP .01,30 

2005 IF z=l THEN LET z=15 

2010 PRINT AT z,12; INK 1 ; "O " 

2020 RETURN 

2051 GO SUB 30 

2060 LET s= INT (RND*19) 

2065 BEEP .01,30 
2070 IF s=0 THEN LET ls=6 
2075 IF s=l THEN LET ls=18 
2080 PRINT AT s,10; INK 4 ; "H " 
2085 RETURN 

2091 GO SUB 30 

2092 LET p= INT (RND*19) 

2093 BEEP .01,30 

2094 IF p=0 THEN LET p=7 

2095 IF p=l THEN LET p=13 

2096 PRINT AT p,6; INK 0 ; "N" 

2097 RETURN 
2102 GO SUB 30 

2104 LET e=INT (RND*19) 

2106 BEEP .1,30 
2108 IF e=0 THEN LET e=6 
2110 IF e=l THEN LET e=18 
2112 PRINT AT e, 8; INK 2 ; " I_" 

2114 RETURN 

2499 REM cambio fase************ 

2500 FOR O=-30 TO 50 STEP 2 
2510 BEEP .05,0 

2520 NEXT O 
2530 RETURN 

2899 REM fase 2***************** 


2900 PRINT AT 21,10; INK 2; 

FLASH 1 ; "FASE 2" 

2902 GO SUB 30 

2930 GO SUB 2500 

2940 PRINT AT 21,10;" " 

3000 PRINT AT g,h;" " 

3001 LET v=20 

3002 FOR w=255 TO 200 STEP -1 
3010 PLOT w, 0 : INK 4: DRAW 0,167 

: BEEP .009,-20 
3020 NEXT w 
3030 GO TO 50 

3300 REM fase 3 ***************** 

3302 GO SUB 30 

3305 PRINT AT 21,10; INK 2; 

FLASH 1 ; "FASE 3" 

3306 GO SUB 2500 

3309 PRINT AT 21,10;" " 

3310 PRINT AT g,h;" " 

3320 LET v=14 

3330 FOR w=200 TO 152 STEP -1 
3340 PLOT w, 0 : INK 4: DRAW 0,167 
: BEEP .009,-20 
3345 NEXT w 
3350 GO TO 50 

3500 REM fase 4 ***************** 

3510 GO SUB 30 

3520 PRINT AT 21,10; INK 2; 

FLASH 1 ; "FASE 4" 

3530 GO SUB 2500 

3540 PRINT AT 21,10;" " 

3550 PRINT AT g,h;" " 

3560 LET v=10 

3570 FOR w=155 TO 120 STEP -1 
3580 PLOT w, 0 : INK 4: DRAW 0,167 
: BEEP .009,-20 
3590 NEXT w 
3600 GO TO 50 

4199 REM hai perso ************* 

4200 BORDER 4: PAPER 6: INK 0: 

CLS 

4205 FOR f =0 TO -30 STEP -1 

4206 BEEP .01, f 

4207 NEXT f 

4208 BEEP 1,0: BEEP 1,-30: 

BEEP 1,0: BEEP 2,-30 
4210 PRINT AT 9,0;" PECCATO, ";a 
$;", VUOI " 

4213 PRINT AT 12,0;" GIOCARE DI 
NUOVO . . . ' G ' O NO . . 

'N' " 

4215 PRINT AT 0,0; PAPER 0;" 

II 





4218 GO SUB 30 

4220 IF INKEY$="G" THEN GO TO 6 

4230 IF INKEY$="N" THEN STOP 
4240 GO TO 4220 

4885 REM hai colpito************ 

4888 BEEP .009,20 

4999 FOR 1=0 TO 48 STEP 6 

5000 PRINT AT g,h; INK 2; "KL" : 

BEEP .009,1 

5005 NEXT 1 

5006 PRINT AT g,h;" " 

5008 PAUSE 50: GO SUB 30 

5009 PRINT AT a,b+l;" " 

5010 GO TO 50 

8888 REM fuoco****************** 

8997 PRINT AT g,h; INK 0; "FJ" 

8998 PRINT AT a,b; INK 1;"RB" ; 

AT a+1 ,b; INK 1;"A" 

9000 LET c=b+2 

9002 FOR c=b+2 TO v STEP 5 

9006 IF a=p THEN LET r=r+10: 

GO SUB 2090 

9007 IF a=e THEN LET r=r+10: 

GO SUB 2100 

9008 IF a=s THEN LET r=r+10: 

GO SUB 2050 

9009 IF a=z THEN LET r=r+10: 

GO SUB 1990 

9010 PRINT AT a,c; INK 0;" PPPPP " 
: BEEP .009,60 

9021 PRINT AT a,c;" " 

9022 NEXT C 

9023 PRINT AT a,b+l;" " 

9025 IF a=g THEN PRINT AT a,b+l 
; INK 1 ; " B " : LET r=r+10: 

GO TO 4500 
9030 RETURN 
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di James Thurbly 

trad. e adatt. di 

Marcello Spero 



Descrizione delle variabili 

s$ (21,31) 

insieme contenente la mappa dello schermo 

tank 

numero di carri rimasti 

dest 

numero di installazioni nemiche distrutte 

stage 

fase del gioco 

x,y 

numeri casuali usati per stabilire la posizione degli osta- 
coli 

ts 

carattere grafico del carro, diverso a seconda della dire- 
zione 

a,b 

posizione del carro (riga, colonna) 

al, bl 

precedente posizione del carro 

res 

numero di installazioni nemiche distrutte durante una 
fase 

n$ 

direzione di movimento del carro 

m$ 

valore del tasto premuto, per il cambio di direzione 

f 

variabile di controllo dei cicli iterativi 

r$ 

livello raggiunto dal giocatore 

c,d 

valori di durata e nota per il BEEP 

z$ 

stringa contenente risposte alle domande fatte dal pro- 
gramma 

Descrizione del programma 

Linee 

Commento 

100-127 

routine di inizializzazione 

130-200 

programma principale 

1005-1990 

movimento del carro 

2000-2990 

controlli 

3000-3140 

routine di carro distrutto e fine gioco 

4000-4060 

routine di fase completata 

7900-7930 

inizializzazione di tutte le variabili 

9000-9190 

istruzioni e costruzione (JDG 


Sempre più ostacoli tra il vostro 
tank e le basi nemiche. Per quanto 
riuscirete a farcela? 


M essaggio dal quartier generale al 
comandante dei carri. Distruggete 
le installazioni nemiche alla base... At- 
tenzione ... Il campo è disseminato di 
mine, trappole e crateri... Avete cinque 
carri... Buona fortuna....- 
Se riuscirete a portare a termine la vo- 
stra missione riceverete la giusta ri- 
compensa: un’altra missione ancora 
più densa di ostacoli da evitare, e con 
una maggior concentrazione di instal- 
lazioni nemiche! 

Per radere al suolo una installazione 
nemica tutto quello che dovrete fare è 
passarci sopra con il vostro carro: un 
sistema semplice ma efficace! Cina vol- 
ta che tutte le installazioni siano state 
distrutte vi sarà ordinato di tornare alla 
base. Al termine del gioco verrete va- 
lutati sulla base della vostra abilità. 

Si tratta di uno di quei giochi semplici 
ma terribilmente appassionanti che 
compaiono di tanto in tanto. Il control- 
lo del carro non è facile come sembra, 
ed un attento tempismo nella pressio- 
ne dei tasti è essenziale. 

I) vostro carro risponderà al tasto “q” 
andando verso l’alto, al tasto “z” an- 
dando verso il basso, al tasto “7” an- 
dando verso sinistra ed al tasto “8” an- 
dando vers^ destra. Prima di iniziare a 
giocare controllate che il CAPS LOCK 


*sia disinserito, poiché vengono ricono- 
sciute unicamente le lettere minusco- 
le. Ma perché non provare, così, per 


esercizio, a convertire il programma 
affinché funzioni sia con che senza 
CAPS LOCK? 


Campo di battaglia 

Versione per ZX Spectrum 16K/48K 

100 REM ma in 

110 GO SUB 9000 

120 GO SUB 7940 

125 PRINT AT a,b;t$: PAUSE 10 

127 LET n$="8" 

130 LET m$=INKEY$ 

135 IF m$ < > " " THEN GO SUB 10 

00 

140 IF m$ = " " THEN LET m$=n$: 
PRINT AT a ,b; INK 7 ; t$ : 
PAUSE 5: GO SUB 1000 


150 GO SUB 2000 
200 GO TO 130 
1000 REM movimento carro 
1005 BEEP .01,5: BEEP .01,5 
1008 IF m$<>"q" AND m$<>"z" 

AND m$<>"8" AND m$<>"7 
" THEN LET m$=n$ 

1010 LET a=a+(m$="z" AND a<21)-( 
m$="q" AND a>l) 

1020 LET b=b+ (m$="8" AND b<31) - ( 
m$="7" AND b>l) 

1040 LET t$ = ( "A" AND m$="q" ) + ( ”B 
" AND m$=" z" ) + ( "C" AND m$=" 
8 " ) + ( " D " AND m$="7") 


50 - SCIPERSINC® 2/84 



1050 PRINT AT a,b; INK 7;t$ 

1055 PRINT AT al,bl; INK 4;" " 
1060 LET al=a : LET bl=b 
1070 LET n$=m$ 

1990 RETURN 
2000 REM check 
2010 IF s$(a,b)=" " THEN 
GO TO 2990 

2020 IF s$(a,b)="G" THEN FOR f= 
1 TO 5: BEEP .1,-20: BEEP . 
05,-20: NEXT f: PRINT AT 0, 
0; FLASH 1; BRIGHT 1; INK 0 
UNA TRAPPOLA ANTICARR 
O! ! ! " : GO SUB 3000: 

GO TO 2990 

2030. IF s$ (a ,b) = "L" OR s$(a,b)=" 
H" OR s$(a,b)="I" OR s$ (a ,b 
) = "J" OR s$ (a,b) ="K" THEN 
FOR f=l TO 10: BEEP .01,-1 
5: BEEP .05,-17: BEEP .01,- 
19: NEXT f: PRINT AT 0,0; 
FLASH 1; BRIGHT 1; INK 0;" 

SEI CADUTO IN UN CRATERE 
! ! ! " : GO SUB 3000: 

GO TO 2990 

2040 IF s$ (a ,b) = "E" THEN FOR f = 
1 TO 5: BEEP .1,-20: BEEP . 
1,-19: BEEP .1,-18: NEXT f: 
PRINT AT 0,0; FLASH 1; 
BRIGHT 1; INK 0;" HAI U 

RTATO UNA MINA!!! " : 

GO SUB 3000: GO TO 2990 
2045 IF s$(a,b)="M" AND res>=sta 
ge*2 AND m$<>"8" THEN 
GO SUB 4000 

2047 IF s$(a,b)="M" THEN 
GO TO 2990 

2050 IF s$(a,b)="F" THEN 

PRINT AT 0,0; BRIGHT 1; 

INK 0;" INSTALLAZIONE DI 
STRUTTA ! ! ! " 

2060 RESTORE 2070: FOR f=l TO 8: 

READ c ,d : BEEP C,d: NEXT f 

2070 DATA . 2 , 15 , . 1 , 15 , . 3 , 16 , . 3 , 1 
5, .3,17, .3,14, .2,13, .5,12 
2080 LET dest=dest+l : LET s$(a,b 

J _ •« Il 

2085 PRINT AT 0,0; PAPER 4;” 

II 

2090 GO SUB 8200: LET res=res+l: 
IF res<stage*2 THEN 
GO TO 2990 

2100 REM tutti distrutti 
2110 PRINT AT 0,0; FLASH 1; 

INK 0; PAPER 7; "TUTTO DIST 
RUTTO! TORNA ALLA BASE" 



2990 RETURN 

2999 REM il carro e' distrutto 

3000 FOR f=l TO 400: NEXT f: 

PRINT AT 0,0; PAPER 4;" 

IL CARRO E' DISTRUTTO!!! 

Il 

3010 LET s$ (a ,b) =" " 

3020 PRINT AT a,b;" ": LET a=10: 

LET b=l: LET al=a: LET bl= 
b: PRINT AT a ,b; "C" : LET t$ 
= "C" “ 

3030 LET n$="8" : LET tank=tank-l 

3040 FOR f=l TO 300: NEXT f: 

PRINT AT 0,0; PAPER 4;" 

II 

3050 GO SUB 8200 

3060 IF tank>0 THEN GO TO 3140 

3070 REM fine gioco 

3080 CLS : PRINT AT 2, 14; "FINE"; 
AT 5 , 3 ; "DISTRUTT" ; ("A" 

AND dest=l) ; ("E" AND (dest 
>1 OR dest=0) ) ; " ";dest;" I 
NSTALLAZ ION" ; ("E" AND dest = 
1) ; ("I" AND (dest>l OR dest 
= 0 ) ) 

3090 LET r $ = ( " RECLUTA" AND dest 
<10)+(" ALLIEVO" AND dest 
>=10 AND dest<20) +(" PILOTA 
" AND dest>=20 AND dest<30) 
+ (" COM. DI CARRO" AND dest 
> = 30 AND dest< 50 ) + ( " COM. D 
I SQUADRONE" AND dest>=50 
AND dest<70) + ( " CAMPIONE" 
AND dest>=70) 


SUPERSINC® 2/84 -51 



3100 PRINT AT 10,0; "HAI RAGGI UNT 
0 LA QUALIFICA DI'" ' TAB 7;r 
$ 

3105 RESTORE 4035: FOR f=l TO 44 
: READ c ,d : BEEP c,d: 

NEXT f 

3110 INPUT "giochi di nuovo? (s/ 
n) "; LINE z$ 

3120 IF z$="s" THEN RUN 120 

3130 STOP 
3140 RETURN 

4000 REM stadio completato 
4010 CLS 

4020 PRINT AT 5,2; FLASH l;"stad 

10 "; stage;" completato.... 

11 

4030 RESTORE 4035: FOR f=l TO 44 
: READ c,d: BEEP c,d: 

NEXT f 

4035 DATA . 15 , 14 , . 1 , 17 , . 25 , 19 , . 4 
,21, 0,0, 0,0, 0,0, 0,0,. 1,14,. 

2.17. . 25.19. .4.21 

4037 DATA 0 , 0 , 0 , 0 , 0 , 0 , . 1 , 14 , . 2 , 1 

7. . 25.19. .4.21. .25.17. .3.14 
,.2, 17,. 3, 16, 0,0, 0,0, 0,0,. 2 
,17, .2,17, .3,16, .5,14, .3,17 
, .2,21, .2,21, .4,19 

4038 DATA 0 , 0 , 0 , 0 , 0 , 0 , . 3 , 17 , . 4 , 1 

9. . 5.21. .5.17. .55.14. .5.16, 
.7,14 

4040 GO SUB 8000 
4050 LET n$="8" 

4060 RETURN 

7900 REM calcolo coord. schermo 
7910 LET x=INT (RND*20)+1 
7920 LET y=INT (RND*30)+1 
7930 RETURN 

7940 REM inizializzazione 

7950 LET tank=5 

7960 LET dest=0 

7970 LET stage=0 

8000 LET stage=stage+l 

8010 DIM s$ (21,31) 

8020 BORDER 1: PAPER 4: CLS 
8030 FOR f=l TO stage*5 
8040 GO SUB 7900: LET s$(x,y)="E 
PRINT AT x,y; INK L;"E" 


8050 GO SUB 7900: LET s$(x,y)="G 
": PRINT AT x,y ; INK 2;"G" 
8060 GO SUB 7900: LET s$(x,y)="L 
PRINT AT x ,y ; INK 0 ; "L" 
8070 GO SUB 7900: LET s$(x,y 

TO y+l)="HI": LET s$ (x+1 ,y 
TO y+1) ="JK" : PRINT AT x,y 
; INK 0 ; "HI " ; AT x+l,y; 

INK 0 ; " JK" 

8100 NEXT f 

8110 FOR f=l TO stage*2 : 

GO SUB 7900 

8112 IF s$ (x,y) ="F" THEN 

GO SUB 7900: GO TO 8112 
8115 IF x< 12 AND x>8 AND y<4 

THEN GO SUB 7900: GO TO 8 
115 

8117 LET s$ (x,y) ="F": PRINT AT x 
,y ; INK 6 ; "F " : NEXT f 
8120 LET t$="C" 

8130 LET a=10 : LET b=l : LET al=a 
: LET bl=b 
8140 LET res=0 
8160 PRINT AT 10,0;"M" 

8200 PRINT AT 0,20;" " 

: FOR f=l TO tank- 1 : 

PRINT AT 0 , 20 + f * 2 ; INK 0;" 
A" : NF.XT f 

8210 FOR f =9 TO 11: PRINT AT f , 1 
;" ": LET s$(f,l TO 3) =" 

": NEXT f 

8220 LET s$ (10, 1) = "M" 

8230 RETURN 

9000 REM istruzioni 

9010 PAPER 0: INK 7: BORDER 0: 

CLS : PRINT AT 0,7; "CAMPO 
DI BATTAGLIA"; OVER 1;AT 0, 

7 . ti n . 

1 t f 

OVER 0 

9020 PRINT AT 2,0;"In questo gio 
co sei al comando di un ca 
rro; dovrai attraversareil 
campo di battaglia per 

distruggere le installazi 
oni nemiche" 

9030 PRINT ' INK 5;"I controlli 
del carro sono:" 

9040 PRINT '"q per muovere ver 

so l'alto" , "z per muovere v 
erso il basso"' "8 per muove 
re verso destra" '"7 per muo 
vere verso sinistra" 

9100 REM costruzione UDG 
9110 RESTORE 9120: FOR b=l TO 13 
: READ z$: FOR f=0 TO 7: 
READ a: POKE USR z$+f,a: 
NEXT f: NEXT b 
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9120 DATA "A" ,16,146,186,254,254 
, 254, 186, 130, "B", 130, 196, 25 

4. 254. 254. 186. 146. 16, "C" ,25 

4.56.124.127.124.56.254.0, " 
D" ,127,28,62,254,62,28,127, 
0 

9130 DATA "E", 0,0, 0,16, 124, 254, 2 

54. 0, "F", 112, 76, 66, 76, 112, 6 
4, 64, 64, "G" ,0,16,56,124,124 

954 954 254 

9140 DATA* "H", 0,6, 15, 31, 63, 31, 31 
,15,"I ",48,124, 254, 255, 254, 
254, 254, 252," J" ,63,63,63,31 
, 31, 7, 3, 0,"K" ,255,255,254,2 
54, 252, 248, 176, 32, "L" ,16,12 

4. 255. 255. 255. 126. 28. 16, "M" 
,14,62,126,14,2,2,2,2 

9150 PRINT INK 6;' "Attento alle 
mine E, alle tr 

appole anticarro G, ed 

ai crateri L HI";TAB 16; "J 
K" 



9160 INPUT "Sei pronto per inizi 
are? "; LINE z$ 

9170 INK 0 
9180 RETURN 


novità 




dilAN LOGAN 


L’autore: un’autorità nel campo dei computers 
Sinclair, offre una spiegazione accurata di questo 
sistema di memorizzazione ad alta velocita: come 
funziona, il suo potenziale per il BASIC e 
Linguaggio Macchina, le possibili applicazioni nel 
campo educazionale e nel lavoro. Il libro 
comprende anche programmi dimostrativi ed una 
trattatazione completa sull’Interface I. pag. 146 
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di Gary Moore 

trad. ed adatt. di 

Marcello Spero 



Se credete che l’allunaggio sia una 
cosa semplice... tenetevi forte! 


S i tratta di una particolare versione 
del popolare gioco. Come nellori- 
ginale, anche qui sono usate una visio- 
ne generale ed una ravvicinata del pae- 
saggio e del modulo, a seconda della 
sua distanza dalle montagne. 

Scopo del gioco è far atterrare (alluna- 
re?) il vostro modulo su tutte e cinque 
le piazzole, indicate sullo schermo con 
delle X lampeggianti. Non ci sono 
istruzioni nel programma, per consen- 
tirgli di stare nei 16K. Ecco perciò un 
breve schema di gioco. 

Usando il tasto “9” per la spinta, ed i 


tasti “7” e “8” per ruotarlo dovete gui- 
dare il modulo verso un morbido atter- 
raggio su una delle piazzole. Se riusci- 
rete ad atterrare su tutte e cinque le 
piazzole il gioco ricomincerà, ma ad 
un livello di difficoltà più elevato. Non 
appena avrete dato RUN vi apparirà 
sullo schermo una distesa montuosa, 
dove saranno indicate le cinque piaz- 
zole di atterraggio. Quando, durante la 
manovra di discesa, vi troverete ad es- 
sere al di sotto di una certa distanza da 
una piazzola, il paesaggio si trasforme- 
rà in una visione ingrandita della zona 
di atterraggio con i suoi immediati din- 
torni. Perché il vostro atterraggio ab- 
bia successo la velocità di discesa del 
modulo dovrà essere uguale o inferio- 
re a 10; potrete tenere sotto controllo 


questo valore per mezzo dell’indicato- 
re apposito, che darà valori negativi se 
il modulo si muove verso l’alto, positi- 
vi se scende. La velocità orizzontale, 
invece, è positiva se il modulo si spo- 
sta verso destra, negativa se si sposta 
verso sinistra. Se atterrate una secon- 
da volta sulla medesima piazzola vi 
verrà ingiunto di decollare immediata- 
mente: se non obbedirete ne paghere- 
te le conseguenze. Riuscendo ad atter- 
rare su tutte le cinque piazzole otterre- 
te un bonus, dipendente dalla quantità 
di carburante che vi sarà avanzata, un 
ulteriore modulo, e il pieno dei serba- 
toi. A questo punto non vi resterà che 
ritentare l’atterraggio sulle cinque 
piazzole, che ora sarà più difficile, es- 
sendo più rapida la velocità di caduta. 



Modulo lunare 

versione per ZX Spectrum 16K/48K 

10 REM set 

20 PAPER 0: BORDER 0: CLS : 

INK 4 

30 LET lv= . 5 : EIHP sfCJ=0Cì:.3 J ET z = 
3: LET 1=0: LET vs=30: 

LET hs=21 

35 GO SUB 9000 

36 LET pd=0 : LET f=3000: DIM c 
(30) 

40: LET ls=9530 : LET h=0: 

LET d=0: LET linea=2: 

LET col=10 : LET der=3: 

LET gs=147: LET giu=4: 

LET s=0 

60 GO SUB 9500 

70 PRINT AT 14,4; FLASH l;"x"; 
AT 20 , 9 ; "x" ; AT 17,15;"x"; 

AT 15 , 21 ; "x" ; AT 19,24;"x" 
100 REM { SG5 } programma principa 
le 

110 INK 7 

115 PRINT AT 0,0; INVERSE 1; 

INK 6 ; "vel/vert . : " ; vs ; 

TAB 31;AT 0 , 15 ; "ve l/or i zz . : 


54 - SCIPERSINC® 2/84 


Descrizioni delle variabili 

lv 

livello di gioco 

se 

punteggio 

z 

numero di moduli rimasti 

1 

misura il tempo fra due bip 

vs 

velocità verticale 

hs 

velocità orizzontale 

pd 

numeri di piazzole su cui siete già atterrati 

f 

carburante rimasto 

ls 

valore di RESTORE per i dati relativi allo scenario 

h 

numero di riga della piazzola nella visione ingrandita 

d 

numero di colonna della piazzola nella visione ingrandi- 
ta 

numero di riga per il modulo 

linea 

col 

numero di colonna per il modulo 

der 

positivo = il modulo si sposta verso destra 
negativo = il modulo si sposta verso sinista 
zero = il modulo rimane fermo in una colonna 

gs 

codice del carattere che rappresenta il modulo 

giu 

positivo = il modulo scende 
negativo = il modulo sale 

s 

è zero nel modo normale, 1 in quello ingrandito 

c 

# se c (linea, col) = 1 vuol dire che siete già atterrati su 
questa piazzola 

pi 

precedente posizione del modulo (riga) 

pc 

precedente posizione del modulo (colonna) 



Descrizione del programma 

Linee 

Commento 

10-70 

inizializzazione variabili 

100-410 

programma principale, così diviso: 

115 

stampa delle informazioni 

116 

controllo dell’atterraggio 

120 

stampa del modulo 

125 

controllo per la caduta 

130-145 

aggiornamento della posizione di stampa 

150-155 

aggiornamento dei movimenti orizzontale verticale 

160-180 

scelta delle posizione da far assumere al modulo 

190 

se il tasto “9” è premuto, viene sottratto 10 dal carbu- 
rante 

200-210 

se il modulo è ai limiti dello schermo GO TO 700 

220 

limitazione della salita del modulo 

230 

aggiornamento delle velocità, orizzontale e verticale 

235-250 

controllo per il cambio di scenario 

290 

se il carburante è esaurito, GO TO 950 

400 

cancellazione del modulo 

410 

ritorno all’inizio del programma principale 

500-580 

ingrandimento del paesaggio 

600-696 

controllo per atterraggio, caduta, piazzola vietata e nu- 
mero di atterraggi effettuati 

700-795 

nel modo ingrandito, se il modulo si trova al limite dello 
schermo, disegno di un nuovo settore di paesaggio 

800-895 

visualizzazione della caduta; se non sono rimasti altri 
moduli la partita termina 

900-940 

sono stati effettuati tutti e cinque gli atterraggi: bonus e 
nuovo inizio ad un livello superiore 

950-960 

routine di “carburante esaurito” 

9000-9060 

grafica per il modulo 

9500-9999 

dati per il paesaggio 

9530 

dati per iniziare il disegno 

9540 

dati per il paesaggio ingrandito intorno alla piazzola 1 

9550 

dati per il paesaggio ingrandito intorno alla piazzola 2 

9560 

dati per il paesaggio ingrandito intorno alla piazzola 3 

9570 

dati per il paesaggio ingrandito intorno alla piazzola 4 

9580 

dati per il paesaggio ingrandito intorno alla piazzola 5 


SUPERSINC® 2/84 - 55 


GOChi 




" ; hs ; TAB 31 ; #0 ; INVERSE 1; 

INK 6;AT 0 , 0 ; "carburante : 

" ; f ; TAB 25; "D ";z;TAB 31; 
116 IF INT linea=h-2 AND ( INT c 
ol=d OR INT (col+ . 5) =d ) 

THEN GO TO 600 

120 PRINT AT linea ,col;CHR$ gs 
125 IF ATTR (linea+SGN vs,col+ 
SGN der)=4 OR ATTR (linea,c 
ol+SGN der ) =4 THEN GO TO 8 
00 

130 LET pc=col: LET pl=linea 
140 LET col=col+SGN der 
145 LET linea=linea+lv*SGN vs* ( 
ATTR (linea+SGN vs,col) 
0132) 

150 LET der=der+ ( INKEY$="9" 

AND gs=146) - (INKEY$="9" 

AND gs=144 ) 

155 LET giu=SGN (giu+ ( INKEY$="9 
" AND gs=145) - ( INKEY$="9" 
AND gs=147) -giu* ( INKEY$="" 
) ) 

160 LET gs=gs+ ( INKEY$="7" ) - ( 
INKEY$="8" ) 

170 IF gs=148 THEN LET gs=144 
180 IF gs=143 THEN LET gs=147 
190 IF INKEY$ = " 9 " THEN LET f = f 
-10 

195 IF INKEY$ = " 9 " THEN BEEP .0 
8,20 

200 IF col>=30 THEN GO TO 700 
210 IF col> = 0 AND COKI THEN 
GO TO 760 

220 IF linea=l THEN LET linea= 
2 

230 LET vs=vs+5+15*giu: LET hs = 
der*7 

235 IF s< >0 THEN GO TO 250 

TC n nQa s = i? AMD s = 0 THEN 

GO TO 505 

250 IF s=l AND linea<=2 THEN 

RESTORE 9530: LET col=(col 
/3.1) +22* (ls=9580) +19* (ls=9 
570) +11* (ls=9560) +6* (ls=955 
0): LET ls=9530 : CLS : 

INK 4: LET lineali: LET s = 
0: GO TO 60 

270 IF 1=6 THEN BEEP .08,40: 

LET 1=0 
275 LET 1=1+1 

280 IF linea<=2 THEN LET linea 

= 2 

290 IF f =0 THEN GO TO 950 
400 PRINT AT pl,pc;" " 

410 GO TO 100 


500 REM {SG5}cambio scenario 
505 LET col= INT col 
510 LET ls=9530+10* (col>0 AND c 
ol<7) +20* (col>6 AND col< 13) 
+30* (col>12 AND col< 18 ) +40* 
(col>17 AND col<22) +50* (col 
>21 AND col< 31) 

520 CLS : INK 4: LET linea=2: 

RESTORE ls 
530 GO SUB 9500 

540 LET h=6* (col>0 AND col<7)+2 
l*(col>6 AND col< 13) +16* (co 
1>12 AND col<18) +9* (col>17 
AND col<22) +21* (col>21 
AND col< 31) 

550 LET d=12* (col>0 AND col<7)+ 
9* (col>6 AND col<13) +12* (co 
1>12 AND col<18) +16* (col>17 
AND col<22) +6* (col>21 
AND col< 31) 

560 PRINT AT h,d; FLASH 1;"X" 
565 LET col=col-6* (col>21) -5* (c 
ol>17) -5* (col>12) -6* (col>6 ) 

570 LET col=col*3 . 1 : LET s=l 
580 GO TO 100 
600 REM { SG5 }atterraggio 
620 IF gs<>147 OR vs>10 
THEN GO TO 800 
630 IF c (linea+col) <>1 THEN 
GO TO 680 

640 PRINT AT 21 , 0 ; "ATTERRAGGIO 
VIETATO. VAI VIA." 

650 FOR i= 1 TO 500 
660 IF INKEY$ = " 9 " THEN LET h = 0 
: GO TO 100 
670 NEXT i: GO TO 800 
680 PRINT AT 10 , 7 ; "ATTERRAGGIO 
PERFETTO" ;AT 11,6; "CONGRATU 
LAZ IONI ! " 

690 LET c (linea+col) =1: FOR i=l 
TO 4: FOR j = 0 TO 10: 

BEEP . 08 , j : NEXT j: NEXT i 
: RESTORE 9530: CLS : INK 4 

693 LET sc=sc+100 

695 LET pd=pd+l: IF pd=5 THEN 

GO TO 900 

696 GO TO 40 

700 REM f SG5Ì superamento confin 
i 

710 IF ls=9530 THEN LET col=l: 

GO TO 400 
720 LET ls=ls+10 
730 IF ls=9590 THEN LET ls=954 
0 

740 CLS : RESTORE ls: INK 4 
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750 LET col= (ls=9540) +8* (ls=955 
0) +13* (ls=9560) +18* (ls=9570 
) +22* (ls=9580) : GO TO 530 
760 IF ls=9530 THEN LET col=29 
: GO TO 400 
770 LET ls=ls- 10 
780 IF ls=9530 THEN LET ls=958 
0 

790 CLS : RESTORE ls: INK 4 
795 LET col=6* (ls=9540) +12* (ls= 
9550) +17* (ls=9560) +21* (ls=9 
570) +29* (ls=9580) : GO TO 53 
0 

800 REM {SG5}caduta 
820 PRINT AT linea- 1 , col- 1 ; "\~ [ 
";AT linea , col- 1; "-*." ;AT 1 
inea+1 , col- 1 ; " ~ " 

830 BEEP .08,0: BEEP .08,5-: 

BEEP .08,3 

840 PRINT AT linea-l,col- 1; " 

" ; AT linea,col-l;" ";AT 1 
inea+1 , col- 1 ; " " 

850 PRINT AT 10, 7; "TI SEI SCHIA 
NTATO": LET z=z-l: IF z=0 
THEN GO TO 870 
860 RESTORE 9530: PAUSE 200: 

CLS : INK 4: GO TO 40 
870 PRINT AT 2 , 10 ; "PUNTEGGIO: " 

• se 

875 PRINT AT 15 , 13 ; "FINE" ; AT 17 
,8; "premi un tasto" 

8 80 IF INKEY$ < > " " THEN 
GO TO 880 

890 IF INKEY$=" " THEN GO TO 89 
0 

895 RUN 

900 REM {SG5} f ine gioco 
905 LET sc=sc+f 

910 CLS : INK 7: PRINT AT 5,1;" 
BRAVO! SEI ATTERRATO SU TUT 
TE LE PIAZZOLE! IL TUO PUNT 
EGGIO E"';AT 8,12; FLASH 1; 
se 

920 IF z=0 THEN PRINT AT 12,3; 
"premi un tasto per iniziar 
e": PAUSE 0: RUN 
930 LET z=z+l: LET lv=lv+.5 
940 PAUSE 200: CLS : INK 4: 

GO TO 36 

950 PRINT AT 10 , 6 ; "CARBURANTE E 
SAURI TO" : LET z=0: PAUSE 20 
0 

960 GO TO 870 
9000 REM {SG5}modulo 
9010 FOR i=l TO 4: READ n$ : 

FOR j=0 TO 7: READ n: 

POKE USR n$+j,n: NEXT j: 
NEXT i 


9020 DATA "a",BIN 00000101, 

BIN 00001111, BIN 01101101- 

, bin ìiimoo , bin unno 

0 , BIN 01101101, BIN 000011 
11, BIN 00000101 

9030 DATA "b",BIN 11100111, 

BIN 01000010, 255, BIN Olii 
1110, BIN 00011000, BIN 001 
11100, BIN 00111100, BIN 00 
011000 

9040 DATA "c",BIN 10100000, 

BIN 11110000, BIN 10110110 
, BIN 00111111, BIN 0011111 

1 , BIN 10110110, BIN 111100 
00, BIN 10100000 

9050 DATA "d",BIN 00011000, 

BIN 00111100, BIN 00111100 
, BIN 00011000, BIN 0111111 
0,255, BIN 01000010, BIN 11 
100111 
9060 RETURN 
9500 REM { SG5 }Moon 
9510 READ x,y: PLOT x,y 
9520 FOR n=0 TO 25: READ h,v: 
DRAW h , v : NEXT n 

9530 DATA 0,31,16,0,16,32,8,0,8, 
8,16,-48,8,-8,8,0,8,16,16,8 
,8,16,8,-16,8,0,2,8,2,0,4,8 
,16,16,8,-24,8,8,8,0,16,-32 
,8,0,16,40,8,-8,16,-8,8,16, 
6,-8 

9540 DATA 0,31,48,0,48,96,24,0,2 
4,24,48,-128,24,-16,24,0,8, 

16,0,0,0,0,0,0,0,0,0,0,0,0, 
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 
, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 
9550 DATA 0,153,48,-128,22,-18,2 

4.0. 24.48.48.24.24.48.24,-4 

8.24.0. 6.12.4.0.0.0.0.0.0.0 
, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

9560 DATA 0,31,48,24,24,48,22,-5 

6.24.0. 6.12.6.0.6.24.48.48, 
24,-72,24,24,16,0,0,0,0,0,0 
, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

9570 DATA 0,55,6,24,6,0,12,24,48 
,48,24,-72,24,24,24,0,48,-9 

6.24.0. 32.104.0.0.0.0.0.0.0 
, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

9580 DATA 0,103,40,-96,24,0,56,1 
20,24,-24,48,-24,24,48,32,- 

24.0. 0.0.0.0.0.0.0.0.0.0.0, 
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 
, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

9999 RETURN 
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di Paolo Agnelli 



Un gioco di balistica realizzato ap- 
plicando rigorosamente le leggi fi- 
siche 


U na volta caricato il programma e 
dato il RCN (se volete potete anche 
avere l’autostart digitando SAVE 
“combat” LINE 1) vi appariranno le va- 
rie opzioni a disposizione. Premendo 
“i” comincerete il gioco vero e proprio. 
Quest’ultimo consiste nel colpire col 
proprio carro armato il carro del com- 
puter, superando con i colpi un’alta 
montagna disegnata in modo casuale 
dal calcolatore. Potete anche, volendo, 
forare la montagna; ma vi assicuriamo 
che il compito richiede una notevolis- 
sima dose di pazienza... una volta inse- 
rita la velocità del proiettile e le coordi- 
nate - queste ultime come 
gradi/ENTER/primi/ENTER/secondi/ 
ENTER - aspetterete per qualche se- 
condo carico di suspence l’esito del vo- 
stro colpo. Se avrete colpito il carro, 
apparirà un messaggio di complimen- 
ti. 

La struttura del programma è chiara e 
consente facilmente modifiche e arric- 
chimenti di ogni tipo, dato che le uni- 
che linee “complicate” sono quelle che 
stabiliscono la traiettoria del proiettile. 



Linee 

Commento 

10-90 

mostrano le opzioni e chiamano le rispettive subroutine 

120-200 

disegnano la montagna e il piano di gioco 

210-260 

eseguono il filling della montagna e rimandano alla rou- 
tine di definizione dei caratteri grafici 

280-300 

posizionano e stampano i due carri armati 

31CL-420 

inserimento e controllo dati, tracciamento della traiet- 
toria del proiettile 

1000-1130 

routine di esplosione del colpo 

2000-2040 

istruzioni 

3000-3040 

caratteri grafici 

4000-4050 

routine di commento a un colpo centrato 


Combat versione per 
ZX Spectrum 16K/48K 

6 REM BY PAOLO AGNELLI 
10 BORDER 1: PAPER 1: INK 7 
20 CLS : CLEAR 
30 PRINT FJjASH 1 ; AT 8,4;" 

ISTRUZIONI " 

40 PRINT FLASH 1;AT 9,4;" pre 
mi <a> per istruzioni " 

50 PRINT FLASH 1;AT 10,4;" pr 
emi <i> per iniziare " 

60 PRINT FLASH 1;AT 11,4;" pr 
emi <s> per finire " , 


70 IF INKEY$="a" THEN CLS : 

GO TO 2000 

80 IF INKEY$ = " i" THEN GO TO 1 
10 

90 IF INKEY$="s" THEN STOP 
100 GO TO 70 
110 CLS 

120 DRAW 255,0 

130 LET a=0 : LET b=0 

140 FOR n=l TO 46 STEP 5 

150 LET k=INT (RND*80)+15 

160 IF n=46 THEN LET k=0 

170 PLOT a+100,b: DRAW n-a,k-b 
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180 LET a=n : LET b=k 
200 NEXT n 
210 LET n=100 
220 FOR k=l TO 95 
230 IF POINT (n,k)=l THEN 
LET n=n+l : GO TO 220 
240 IF n=147 THEN GO TO 270 
250 PLOT n,k 
260 NEXT k 
270 GO SUB 3000 
280 PRINT AT 21,1;CHR$ 144 
290 LET o= INT (RND*8)+3 
300 PRINT AT 21,21+o;CHR$ 160 
310 INPUT "vel. proiettile="; v 
320 INPUT "grad f prim,sec=" ; a; "- 
•i • b • ” - ,f • c 

330 LET n=( ( ( ( (a*60)+b) *60+c) /3 
600) *PI)/180 

340 LET g=9 . 81 : LET t=.07 
350 LET x=INT (v*t*COS n) +15 
360 LET y=INT ( (v*t*SIN n)-(.5* 
g*t*t) ) +8 

370 IF x< 1 OR x>254 OR y>174 
THEN GO TO 310 
380 IF y<8 OR POINT (x,y)=l 

THEN GO SUB 1000: GO TO 3 
10 

400 PLOT x,y: PAUSE 5: PLOT 
OVER l;x,y 
410 LET t= t+ . 07 
420 GO TO 350 

1000 DIM a ( 16 , 2) : LET r = l 

1001 IF y<8 THEN LET y=l 
1010 BEEP .1,40 

1020 FOR i=l TO 16 
1030 LET a ( i , 1) =r*COS (RND*PI)+ 
x: LET a ( i , 2) =r*SIN (RND* 

pi) +y 


1040 IF a ( i , 1) < 1 THEN LET a(i,l 
) =0 

1050 IF a ( i , 1) >254 THEN LET a(i 
, 1) =a ( i , 1) - 16 

1060 PLOT FLASH l;x,y: DRAW a(i 
,1) -x, a ( i , 2) -y 
1070 LET r=r+l 
1080 NEXT i 
1090 FOR i=l TO 16 
1100 PLOT INVERSE 1; FLASH 0;x, 
y: DRAW INVERSE l;a(i,l)-x 
,a ( i , 2) -y 
1110 NEXT i 

1120 IF y<8 AND x>=o* 8 + 168 AND x 
<=0*8+176 THEN GO TO 4000 
1130 RETURN 

2000 PRINT "LO SCOPO DEL GIOCO E 
' QUELLO DI DISTRUGGERE IL 
CARRO ARMATO AVVERSARIO 

TRAMITE UN CANNONE ORIEN 
TABI LE . PER IL TIRO • VI 
VERRANNO RICHIESTI VELOCITA 
' DELPROIETTILE , INCLINAZ ION 
E IN GRAD I - PRIMI - SECON 

DI . " 

2010 PRINT FLASH 1; "premi un qu 
alsiasi tasto per contin 
uare " 

2020 PRINT INVERSE 1;AT 16,8;"* 
** COMBAT ***" 

2030 PAUSE 0 
2040 GO TO 20 

3000 RESTORE 3010: FOR z=0 TO 7: 

READ p: POKE USR "a"+z,p: 

NEXT z 

3010 DATA 2,4,40,48,124,255,255, 
66 

3020 RESTORE 3030: FOR z=0 TO 7: 

READ p: POKE USR "q"+Z,p: 

NEXT z 

3030 DATA 64,32,20,14,127,255,12 
6,36 

3040 RETURN 

4000 FOR f=l TO 8 

4010 BEEP . 2 , f 

4015 PRINT CHR$ 144;" " ; 

4017 PRINT CHR$ 160;" "; 

4020 NEXT f 

>4030 PRINT FLASH 1;AT 7,1;" BER 
SAGLIO COLPITO, COMPLIMENTI 

II 

4040 PRINT " x= " ; x 

4041 PRINT " y= ";y 

4045 PRINT INVERSE 1;AT 18,8;"* 
* *COMBAT* * * " 

4050 PAUSE 500: GO TO 10 
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di Brian Sides 

adatt. e trad. di 

Paolo Agnelli 

Niente più problemi per scrivere 
un diagramma di flusso: ci pensa il 
vostro Spectrum 


Q uesto programma, caricato con un 
MERGE insieme al programma 
che volete analizzare, visualizza sullo 
schermo i numeri di linea di quest’ulti- 
mo, le istruzioni principali di ogni li- 



nea, i simboli appropriati del diagram- 
ma di flusso per ogni istruzione e gli 
eventuali rimandi di GO TO, GO SUB, 
RETGRN, e così via. 

Nonostante l’apparente ermeticità, il 
programma funziona in modo sostan- 
zialmente semplice, andando a “curio- 
sare” per mezzo dell’istruzione PEEK 
nelle variabili di sistema da 23635 a 
23637, che si occupano dei program- 
mi BASIC. A seconda dei valori che 


vengono ritornati, il programma ese- 
gue la routine adeguata per stampare 
sullo schermo i vari comandi e simbo- 
li. 

Alla linea 9943 viene infine presentata 
l’opzione che permette di proseguire 
con la successiva schermata video 
(schiacciando “v”) o di stampare la 
schermata stessa, premendo il tasto 

“p”. 


Flowchart 

versione per ZX Spectrum 16K/48K 



9900 

REM 

f low-chart 


9901 

OVER 0: INVERSE 0 

: BORDER 7 


: PAPER 7: INK 0: 

CLS 

9902 

LET 

a=PEEK 23636: 

LET a=a* 2 


56: 

LET a=a+PEEK 

23635 

9903 

LET 

c=0 : LET y=175 : LET x=l 


30 


/ 


9904 LET 1=PEEK a: LET 1=1*256: 

LET 1= 1+PEEK (a+1) : LET a= 
a+4 

9905 IF 1>9899 THEN GO TO 9943 

9906 PRINT 1 ; TAB 5;CHR$ PEEK a: 

LET c=C+2 : PRINT 

9907 PLOT x,y: LET b=PEEK a 

9908 IF b=226 OR b=234 OR b=242 

OR b=254 THEN GO TO 9924 

9909 IF b>227 AND b<231 OR b=232 

OR b=235 OR b=241 OR b=247 
OR b=249 OR b=253 THEN 
GO TO 9925 

9910 IF b=243 OR b=250 THEN 
' GO TO 9926 

9911 IF b=236 OR b=237 THEN 

GO TO 9934 

9912 DRAW 16,0: DRAW -4,-8: 

DRAW -28,0: DRAW 4,8: 

DRAW 12,0 

9913 LET y=y-8 

9914 IF b=226 OR b=236 OR b=237 

OR b=254 THEN GO TO 9916 

9915 PLOT x ,y : DRAW 0,-7: DRAW 4 
,4: DRAW -4,-4: DRAW -4,4 

9916 LET y=y-8 

9917 LET b=PEEK a 

9918 IF b=14 THEN LET a=a+4 

9919 IF b=13 THEN GO TO 9922 

9920 IF b=58 THEN GO TO 9940 
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9921 

9922 

9923 

9924 


9925 


9926 


9927 

9928 

9929 

9930 

9931 


9932 

9933 

9934 


9935 



LET a=a+l : GO TO 9917 
IF c=20 THEN GO TO 9943 
LET a=a+l : GO TO 9904 
DRAW 12,0: DRAW 4, -8, -PI: 

DRAW -24,0: DRAW -4,8,- 
PI: DRAW 12,0: GO TO 9913 
DRAW 16,0: DRAW 0,-8: 

DRAW -32,0: DRAW 0,8: 

DRAW 16,0: GO TO 9913 
DRAW 8,-4: DRAW 8,0: DRAW - 
4,4: DRAW 4,-4: DRAW -4,-4: 
DRAW 4,4: DRAW -8,0: 

DRAW -8,-4: DRAW -8,4: 

DRAW 8,4 

IF b=243 THEN GO TO 9933 
LET a=a+l : LET f =PEEK a 
IF f=14 THEN LET a=a+4 
IF NOT f =203 THEN GO TO 99 
28 

LET a=a+l : LET f =PEEK a: 
PRINT AT c- 2 , 19 ;CHR$ f: 
PRINT 

IF f =236 OR f=237 THEN 
GO TO 9935 
GO TO 9913 

CIRCLE x,y-4,4: PLOT x+4,y- 
4: DRAW 64,0: DRAW -4,4: 
DRAW 4,-4: DRAW -4,-4: 

PLOT x,y 

LET a=a+l : LET f =PEEK a 


9936 IF NOT f=14 THEN GO TO 993 
5 

9937 LET a=a+3: LET g=PEEK (a+1) 
: LET g=g*256 : LET g=g+ 

PEEK (a) 

9938 PRINT AT c-2,26;g: PRINT 

9939 GO TO 9913 

9940 IF c=20 THEN GO TO 9943 

9941 LET a=a+l : PRINT " : " ; 

TAB 5;CHR$ PEEK a: PRINT : 

LET c=c+2 

9942 GO TO 9907 

9943 INVERSE 1: PRINT AT 21,0;"p 
ress ""v"" to view ""p"" to 

print": INVERSE 0 

9944 IF INKEY$="v" THEN GO TO 9 
947 

9945 IF INKEY$="p" THEN GO TO 9 
951 

9946 GO TO 9944 

9947 CLS : LET d=0: LET e=22: 

LET c=0 : LET x=130: LET y= 
175 

9948 IF PEEK a=58 THEN GO TO 99 
41 

9949 IF 1>9899 THEN STOP 

9950 LET a=a+l : GO TO 9904 

9951 PRINT AT 21,0;" 

": COPY : 

GO TO 9947 
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di Paul Clansey 
trad. e adatt. di 

Paolo Mambretti 



Ragionamento e attenzione gli in- 
gredienti essenziali per risolvere 
questo gioco. 


I l concetto di gioco di Cubo 2D è si- 
milare a quello del cubo di Rubik, 
applicato a una griglia bidimensionale 
di 16 quadrati colorati in quattro modi 
diversi. I quadrati sono mischiati a ca- 
so all’inizio di ogni partita, e il vostro 
compito consiste nel risistemarli, ese- 
guendo ogni volta lo scorrimento di 
una riga o una colonna. In ogni mo- 
mento, schiacciando il tasto Q, potrete 
controllare la soluzione; se questa è 
esatta, vi verrà mostrato il tempo im- 
piegato. I tasti usati per manipolare la 
griglia vi vengono mostrati ai lati della 
stessa. 

Vi consigliamo di registrare su nastro 
una copia del programma PRIMA di 
dare il RGN, poiché il linguaggio mac- 
china in esso contenuto provoca degli 
effetti secondari, quali l'impossibilità 
di effettuare l’EDIT della linea 1 e l’ap- 
parente invisibilità di alcune linee del 
listato. Non vi preoccupate, quindi: 
questi “inconvenienti” in realtà non 
causano nessun problema, a patto che 
il programma sia stato correttamente 
copiato. 


Linee 

Commento 

1 

istruzione REM (contenente 55 caratteri) che alloggia la 
routine in codice macchina 

2 

inserimento dei DATA delle linee 6-8 nella REM di linea 

1 

DATA per la routine in linguaggio macchina che cam- 
bia gli attributi entro un quadrato di 2X2 caratteri 

6-8 

10 

DATA per gli attributi della griglia 

11-12 

DATA per la grafica autodefinita 

20 

dimensiona una matrice che contiene i valori degli at- 
tributi 

21-24 

definiscono i caratteri grafici 

25-60 

inizializzano lo schermo 

61-63 

attende la richiesta di un’altra partita 

64 

contatore degli scorrimenti casuali 

65 

decrementa il contatore e sceglie casualmente uno dei 

16 possibili scorrimenti 

70-71 

controllano se è stato schiacciato il tasto Q 

72 

esclude tasti indesiderati 

73 

va al numero di linea determinato dal valore (CODE) ot- 
tenuto dalla funzione INKEY$ 

75 

calcola il tempo trascorso (dopo che è stato premuto il 
tasto Q) 

76-77 

controllano se la soluzione è corretta; in caso contrario 
rimandano alla linea 80 

78 

visualizza il tempo impiegato 

80-81 

avvisano in caso di soluzione incompleta 

100-115 

ogni linea effettua uno dei 16 scorrimenti possibili, mo- 
dificando i valori della matrice degli attributi 

116 

durante la partita, va alla linea 120 

118 

si occupa del tempo di gioco 

120 

esegue i POKE degli attributi ognuno dei quadrati della 
griglia 


Cubo 2D 

versione per ZX Spectrum 

16K/48K 

1 REM xxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxx 

2 FOR n=23760 TO 23803: 

READ a: POKE n ,a: NEXT n 

5 RANDOMIZE : DIM a (4,4) 

6 DATA 62,64,1,0,0,17,4,4,33, 
223,87,213,17,32,0,4,25,16, 
253 


7 DATA 65,4,35,16,253,209,66, 
229,72,67,119,35,16,252,225 
,213 

8 DATA 17,32,0,25,209,65,16,2 
39,201 

10 DATA 16,16,48,48,16,16,48,4 
8,32,32,8,8,32,32,8,8 

11 DATA 0,8,28,42,8,8,0,0,0,0, 
8,8,42,28,8,0 

12 DATA 0,16,32,124,32,16,0,0, 
0,8,4,62,4,8,0,0 
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20 FOR y=l TO 4: FOR x=l TO 4: 

READ z: LET a(x,y)=z: 

NEXT x: NEXT y 

21 FOR f =0 TO 7: READ z: 

POKE USR "A"+f,z: NEXT f 

22 FOR f =0 TO 7: READ z: 

POKE USR "B"+f,z: NEXT f 

23 FOR f =0 TO 7: READ z: 

POKE USR "C"+f,z: NEXT f 

24 FOR f =0 TO 7: READ z: 

POKE USR "D"+f , z : NEXT f 

25 BORDER 0: PAPER 5: CLS 

26 PRINT INK 0;AT 2,9;"aA bA 

cA dA " ; AT 19 / 9 ; " 1B kB 
, jB iB " 

27 PRINT INK 0; AT 4,7;"p" ; 

AT 4 , 24 ; "e" ; AT 5,7;"C";AT 5 
,24;"D" 

28 PRINT - INK 0; AT 8,7;"o" ; 

AT 8,24;"f";AT 9,7;"C";AT 9 
,24;"D" 

29 PRINT INK 0; AT 12 , 7; "n" ; 

AT 12,24;" g" ; AT 13, 7; "C"; 

AT 13,24; "D" 

30 PRINT INK 0; AT 16,7;"m"; 

AT 16,24; "h" ; AT 17, 7; "C"; 

AT 17,24; "D" 

31 FOR n=3 TO 10: PRINT 

PAPER 2 ; AT n,8;" "; 

PAPER 6 ; " " : NEXT n 

: FOR m=ll TO 18: PRINT 
PAPER 4 ; AT m,8;" "; 

PAPER 1;" " : NEXT m 

40 PLOT 64,151: DRAW 191-64,0: 
DRAW 0,24-151: DRAW 64-191 
,0: DRAW 0,151-24 
50 PLOT 64,87: DRAW 191-64,0:. 
PLOT 64,55: DRAW 191-64,0: 
PLOT 64,238/2: DRAW 191-64 
,0 

55 PRINT AT 10,28; PAPER 2;" " 
; PAPER 6;" " ; AT 11,28; 
PAPER 4;" "; PAPER 1;" " 

60 PLOT 127,151: DRAW 0,24-151 
: PLOT 96,151: DRAW 0,24-15 
1: PLOT 159,151: DRAW 0,24- 
151 

61 PRINT INK 0; AT 0,0; "PREMI 
UN TASTO PER GIOCARE" 

63 IF INKEY$=" " THEN GO TO 62 


64 PRINT AT 0,0;" 

": LET f 

g=30 

65 LET fg=fg- 1 : GO TO INT ( 
RND*16+97) 

70 IF INKEY$=" " THEN GO TO 69 

71 IF INKEY$="q" THEN GO TO 7 
5 

72 IF CODE INKEY$<97 OR CODE 
INKEY$ >112 THEN GO TO 70 

73 GO TO ((CODE INKEY$)+3) 

75 RESTORE 10: LET t= (256*256* 
PEEK 23674+256*PEEK 23673+ 
PEEK 23672) /50- t 

76 FOR y=l TO 4: FOR x=l TO 4: 

READ z: IF z<>a(x,y) 

THEN GO TO 80 

77 NEXT x: NEXT y 

78 PRINT AT 21,0;" 

Il • 

PRINT FLASH 1;AT 21,10;"T 
EMPO: " ; t: GO TO 61 
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80 PRINT AT 21,0;" 

•i . 

• 

PRINT FLASH 1;AT 21,10;"I 
NCOMPLETO" 

81 FOR n=l TO 700: NEXT n: 

RESTORE 10: GO TO 20 

100 LET v=a(l,l): LET a(l,l)=a( 

1.2) : LET a (1,2) =a (1,3) : 

LET a(l,3) =a (1,4) : LET a(l 

,4) =v: GO TO 116 

101 LET v=a (2,1) : LET a(2,l)=a( 

2.2) : LET a ( 2 , 2) =a (2,3) : 

LET a (2, 3) =a (2,4) : LET a (2 

,4) =v: GO TO 116 

102 LET v=a (3,1) : LET a(3,l)=a( 

3.2) : LET a ( 3 , 2) =a(3,3) : 

LET a (3,3) =a (3,4) : LET a(3 

,4) =v: GO TO 116 

103 LET v=a (4,1) : LET a(4,l)=a( 

4.2) : LET a(4,2) =a (4,3) : 

LET a (4,3) =a (4,4) : LET a(4 

,4) =v: GO TO 116 

104 LET v=a (4,1) : LET a(4,l)=a( 

3.1) : LET a (3,1) =a (2,1) : 

LET a (2,1) =a(l,l) : LET a(l 

,1) =v: GO TO 116 

105 LET v=a (4,2) : LET a(4,2)=a( 

3.2) : LET a (3,2) =a (2,2) : 

LET a(2,2)=a(l,2) : LET a(l 

, 2) =v: GO TO 116 


106 LET v=a (4,3) : LET a(4,3)=a( 

3.3) : LET a (3,3) =a (2,3) : 

LET a (2,3) =a (1,3) : LET a(l 

,3) =v: GO TO 116 

107 LET v=a (4,4) : LET a(4,4)=a( 

3.4) : LET a(3,4)=a(2,4) : 

LET a (2, 4) =a (1,4) : LET a(l 

,4) =v: GO TO 116 

108 LET v=a (4,4) : LET a(4,4)=a( 

4.3) : LET a ( 4 , 3) =a ( 4 , 2) : 

LET a (4,2) =a (4,1) : LET a(4 

,1) =v: GO TO 116 

109 LET v=a (3,4) : LET a(3,4)=a( 

3.3) : LET a ( 3 , 3) =a ( 3 , 2) : 

LET a (3,2) =a (3,1) : LET a (3 

,1) =v: GO TO 116 

110 LET v=a (2,4) : LET a(2,4)=a( 

2.3) : LET a (2, 3) =a (2,2) : 

LET a (2,2) =a (2,1) : LET a(2 

, 1) =v: GO TO 116 

111 LET v=a (1,4) : LET a(l,4)=a( 

1.3) : LET a (1,3) =a (1,2) : 

LET a (1,2) =a (1,1) : LET a(l 

,1) =v: GO TO 116 

112 LET v=a (1,4) : LET a(l,4)=a( 

2.4) : LET a(2,4)=a(3,4): 

LET a (3,4) =a (4,4) : LET a(4 

,4) =v: GO TO 116 

113 LET v=a (1,3) : LET a(l,3)=a( 

2,3) : LET a (2,3) =a (3,3) : 

LET a (3,3) =a (4,3) : LET a(4 
,3) =v: GO TO 116 

114 LET v=a (1,2) : LET a(l,2)=a( 
2,2) : LET a (2,2) =a (3,2) : 

LET a (3, 2) =a (4,2) : LET a (4 
, 2) =v: GO TO 116 

115 LET v=a (1,1) : LET a(l,l)=a( 
2,1): LET a (2,1) =a (3,1) : 

LET a (3,1) =a(4,l) : LET a (4 
, 1) =v: GO TO 116 

116 IF f g=0 THEN GO TO 120 

117 IF f g>l THEN GO TO 65 

118 LET f g=0 : PRINT INK 0;AT 2 
1 , 0 ; "premi ' q ' per fermare 1' 
orologio.": LET t= (256*256* 
PEEK 23674+256*PEEK 23673+ 
PEEK 23672) /50 

120 FOR y=l TO 4: FOR x=l TO 4: 
POKE 23761, a (x,y) : POKE 23 
763,8+4* (x-1) : POKE 23764,3 
+4* (y- 1) : LET q=USR 23760: 
NEXT x: NEXT y 
125 GO TO 70 
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Date un po’ di “movimento” al vo- 
stro Spectrum! 


T utto è cominciato riflettendo sul ca- 
ricamento degli schermi grafici da 
cassetta (come quelli dei giochi): stu- 
pendi da vedere la prima volta, ma len- 
ti e - dopo, appunto, la prima volta - an- 
che un po’ noiosi. 

Perché allora non inventare una routi- 
ne che memorizzi le schermate nello 
Spectrum con la possibilità di richia- 
marle in qualsiasi momento? 

Ciò è effettivamente possibile, usando 
l’istruzione PEEK per leggere il valore 
dei byte che interessano (a partire dal- 
la locazione 16384) spostando poi il 
tutto in zone più alte della memoria 
per mezzo delle POKE. Siccome ci tro- 
viamo a lavorare su 6912 byte per 
schermata, il processo risulterebbe più 
lento del caricamento da cassetta; così 
si rende necessario l’uso del linguag- 
gio macchina, forse ostico e sicura- 
mente incomprensibile per i molti in 
possesso della conoscenza del solo 
BASIC (magari agli inizi), ma certa- 
mente veloce a sufficienza. Non si 
preoccupino, in ogni caso, i neofiti: ho 
provveduto anche alla traduzione del 
linguaggio macchina, fornendo anche 
un piccolo programma che potrà sug- 
gerire loro qualche buona idea. 

I programmi 

Il programma uno è la routine in lin- 
guaggio macchina per spostare 6912 
byte da una zona di memoria ad un’al- 
tra; essendo disponibili (in uno Spec- 
trum 48K) più di 40000 byte, mediante 
questa operazione potrete memorizza- 
re contemporaneamente fino a 5 
schermate. 

I byte numero 2 e 3 e quelli numero 5 e 
6 sono gli indirizzi, scritti in esadeci- 
male (cioè in base 16 anziché in base 
10). Il byte 3 è il risultato della divisio- 
ne per 256 dell’indirizzo di partenza, 
mentre il byte 2 è il resto della divisio- 
ne stessa. Per esempio: se 
33000/256= 128 con resto 232, i byte 
2 e 3 conterranno i valori 232,128. 

Il programma due è costituito da una 
routine BASIC per inserire ed eseguire 


il linguaggio macchina del program- 
ma uno usando indirizzi specifici. Il co- 
dice macchina viene memorizzato nel- 
lo Spectrum tra gli indirizzi 64000 e 
64020, ed è protetto da eventuali NEW 
per mezzo della linea 1000. Le scher- 
mate possono essere immagazzinate a 
partire dalla locazione 25000, e gli in- 
dirizzi successivi dovranno essere in- 
crementati di 7000 byte. 

Ora battete il programma (salvatelo su 
nastro appena avrete finito di inserirlo, 
a scanso di incidenti...), date il RCIN e 
indicate come indirizzi 16384 e 25000, 
eseguendo poi dei disegni sullo sche- 
rno (o caricando una schermata di 
qualche gioco). Inserite ora RANDOMI- 
ZE GSR 64000: noterete che, almeno 
apparentemente, non è successo... 
niente. In realtà il contenuto dello 
schermo è stato copiato nelle locazioni 
di memoria da 25000 a 31912 - non ci 
credete? Fate qualche PEEK di verifica 
oppure, ancora meglio, date un CLS e 
rieseguite il programma, inserendo 
questa volta 25000 come primo indi- 
rizzo e 16384 come secondo. Digitate 
ancora RANDOMIZE CJSR 64000 e ve- 
drete come per incanto riapparire la 
vostra immagine, in un tempo notevol- 
mente inferiore a quello che avreste 
impiegato usando PEEK e POKE. 
Oltre a questa, avete ancora spazio in 


Esadecimale 

Mnemonico 

11, XX, XX 

LD DE,ind.l 

21, XX, XX 

LD HL,ind,2 

06, 1B 

LD B,27 

C5 

PGSH BC 

06,00 

LD B,256 

1A 

LD A, DE 

23 

INC (HL),A 

13 

INC DE 

23 

INC HL 

10, F9 

DJNZ,-6 

CI 

POP BC 

10, F4 

DJNZ,-1 1 

C9 

RET 


memoria per altre quattro schermate, 
richiamabili nella stessa maniera. 

E allora? 

Scommetto che qualcuno, a questo 
punto, si starà chiedendo che cosa ha a 
che fare tutto ciò con l’animazione; im- 
magino che altri avranno invece già 
capito dove voglio arrivare. 

Se infatti viene usata una routine in lin- 
guaggio macchina per richiamare ci- 
clicamente gli schermi disponibili, si 
possono, per l’appunto, ottenere effetti 
di animazione. Il programma tre usa la 
nostra routine, alla linea 100, per im- 
magazzinare quattro disegni, creati 
dalla linea 7 alla linea 70 e leggermen- 
te differenti tra loro. La linea 200 e le 
seguenti richiamano i disegni in ciclo, 
dandovi, previa attesa di un minuto 
circa, un eccezionale effetto di anima- 
zione. 

Per risparmiarvi la fatica di fare i calco- 
li, vi dico che un ciclo completo dura 
circa 7 secondi impiegando 64 “foto- 
grammi”, così da maneggiare un tota- 
le di circa 63000 byte al secondo. 
Ovviamente, potrete utilizzare il pro- 
gramma per creare qualunque disegno 
vogliate. Inviate a SGPERSINC i vostri 
“Tron” domestici: i più belli verranno 
pubblicati!’ 


Spiegazione 

leggi da indirizzo 
memorizza a indirizzo 
prepara un ciclo di 
6912 ripetizioni 

mette il contenuto di indirizzo 1 
in indirizzo 2 

sposta indirizzo 1 e indirizzo 2 
all’indirizzo successivo 

fine del ciclo 

torna al BASIC 


Programma uno 

versione per ZX Spectrum 48K 


SUPER Vie 2/84 6 5 


Programma due 

versione per ZX Spectrum 48K 


1000 CLEAR 63999 

1010 INPUT "leggi dall'indirizzo 
? " ; y 

1020 INPUT "memorizza all' indiri 
zzo ? ";z 

1025 FOR n=64000 TO 64020 
1030 READ a: POKE n,a: NEXT n 
1035 DATA 17 ,y-INT (y/256)*256, 
INT (y/256) 

1040 DATA 33 , z- INT (z/256) *256, 
INT ( z/256) 

1045 DATA 6,27,197,6,0,26,119,19 
,35,16,249,193,16,244,201 
1050 PRINT "prepara o richiama 
lo schermo" 


Programma tre 

versione per ZX Spectrum 48K 

10 BORDER 0: PAPER 0: BRIGHT 1 
: CLS 

20 OVER 0: CLEAR 63999 

30 LET z=26000 : LET d=0 

40 FOR m=l TO 4 

50 FOR n=0+d TO 2+PI+d STEP 
PI/8 

60 INK 6: PLOT 127+1>T*SIN n,8 
7+87*COS (n) 

70 INK 6: PLOT 127+127*SIN (n+ 
PI/100) ,87+87*COS (n+PI/1 
00 ) 

80 INK 6: PLOT 127+127*SIN (n+ 
PI/50 ) , 87+87*COS (n+PI/50 
) 

90 INK 6: PLOT 127+127*SIN (n+ 
3*PI/100 ) , 87+87*COS (n+3* 
PI/100) 

100 INK 5: PLOT 127+70*SIN -n,8 
7+70*COS -n 

110 DRAW 70* (SIN (-n+PI/2) - 

SIN -n) ,70* (COS (-n+PI/2)- 
COS -n) 

120 INK 2: PLOT 127+35*SIN n,87 
+35*COS n 

130 DRAW 35* (SIN (n+PI/2) - 
SIN n), 35* (COS (n+PI/2) - 
COS n) 

140 NEXT n 

150 GO SUB 210 

160 LET z=z+7000 

170 LET d=d+PI/32 



180 CLS 
190 NEXT m 
200 GO TO 240 

210 RESTORE 220: FOR n=64000 

TO 64020: READ q: POKE n,q 
: NEXT n: RANDOMIZE USR 640 
00 

220 DATA 17,0,64,33, z- INT (z/25 
6) *256 , INT (z/256) ,6,27,197 
,6,0,26,119,19,35,16,249,19 
3,16,244,201 
230 RETURN 
240 LET z=26000 
250 FOR f =0 TO 60 STEP 20 
260 RESTORE 270: FOR n=64000+f 
TO 64019+f : READ q: POKE n 
,q: NEXT n 

270 DATA 17 , z- INT (z/256) *256, 
INT (z/256) ,33,0,64,6,27,19 
7,6,0,26,119,19,35,16,249,1 
93,16,244 
280 LET z=z+7000 

290 NEXT f 

300 POKE 64080,201 

310 IF INKEY$=" " THEN 

RANDOMIZE USR 64000 
320 IF INKEY$ < > "" THEN 
GO TO 320 
330 GO TO 310 

340 SAVE "ANIMAZIONE" LINE 10 


SUPERS1NC augura a tutti 
BUONE VACANZE 

e vi dà appuntamento a SETTEMBRE 
per il numero 3. 

Non perdetelo! 
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LOAD 



di Brian Wilson 

trad. e adatt. di 

Paolo Maffei 


Linee 

Commento 

40-170 

inizializzazione delle variabili e disegno del campo di 
battaglia 

300-320 

movimento della nave 

350 

aiuto se vengono superati i 100 punti 

400-430 

sonar 

450 

suoni dei siluri 

500-550 

determinazionedellaprofondità delle bombe e loro lan- 
cio 

610-620 

disegno del sottomarino (aiuto) 

700-730 

discesa delle bombe 

740-820 

sottomarino distrutto 
visualizzazione del punteggio 

830-895 

900-930 

esplosione delle bombe 

1000-1130 

istruzioni 

2000-2086 

caratteri autodefiniti 

3000-3090 

suono dei siluri e affondamento della nave 


Una emozionante battaglia in mez- 
zo all’oceano fra voi e il comandan- 
te di un sottomarino nemico. Riu- 
scirete a localizzare con il sonar il 
sottomarino e a colpirlo con le 
bombe di profondità? 

S iete il capitano di un cacciatorpedi- 
niere che naviga nell’oceano alla ri- 
cerca del sottomarino nemico. Il vo- 
stro compito è di trovarlo e distrugger- 
lo e, considerando che non potete ve- 
derlo, non è poi tanto facile! 

L’unico aiuto che avete è il sonar: la 
frequenza e il ritorno dell’eco sono le 
uniche informazioni a vostra disposi- 
zione. 

Dovrete così capire dove si nasconde il 
sottomarino, preparare le bombe di 
profondità e lanciarle. 

Difendetevi, dunque, perché il coman- 
dante del sottomarino non rimarrà 
inerte aspettando che voi lo colpiate; 
infatti lancerà dei siluri contro la vo- 
stra nave. Fortunatamente disponete 
di sofisticati sistemi che vi permette- 
ranno di captare la presenza di siluri 
nemici e tentare quindi di evitarli. 


Particolari tecnici 

Se all’inizio del gioco premete il tasto 
“0” il sottomarino comparirà senza la 
possibilità di silurarvi: potrete così al- 
lenarvi, ma non otterrete alcun punto. 
I tasti da usare sono: “1” per il sonar; 
“2” per lanciare le bombe; “5” e “8” 
per muovere la nave; “6” e “7” per de- 


terminare la profondità delle bombe. 
Si può giocare per conseguire il minor 
punteggio (affondare il sottomarino 
appena possibile; punteggio massimo 
se si viene affondati) o per ottenere più 
punti che potete (sopravvivenza e pun- 
teggio massimo per l’affondamento 
del sottomarino). Buona fortuna... 


Sottomarino 

versione per ZX Spectrum 16K/48K 

10 PRINT AT 0, 11; "SOTTOMARINO" 

15 PLOT 88,167: DRAW 88,0 
20 PRINT AT 10,6; "Attendere ,pr 
ego . . " 

25 GO SUB 2000 
30 GO SUB 1000 
40 LET bs=9999 

100 PAPER 1: BORDER 5: CLS <» 


105 PAPER 7 

110 FOR n=0 TO 127: PRINT " 

NEXT n 

120 LET c=15 : LET sc=0: LET h=l 
: LET dc=3 : LET k=0: LET kl 
=0: LET q=l 

130 PRINT AT 3,c; "ABC” 





140 LET ls=7+INT (RND*13) 

150 LET cs=l+INT (RND*28) 

160 PRINT AT 0,0;" PROFOND I TA ' BO 
MBA PUNTI" 

170 PRINT AT 0,17;dc-3;AT 0,28; 
se 

300 IF INKEY$=" 5" THEN LET sc= 
(sc+1) *h: PRINT AT 3, e;" 

LET c=c-l* (c>0) : PRINT 
AT 3, e;" ABC " 

310 IF INKEY$=" 8" THEN LET sc= 
(sc+1) *h: PRINT AT 3 , e ; " 

" : LET c=c+l* (c<29) : 

PRINT AT 3 ,c; "ABC" 

320 PRINT AT 0,28; se 
350 IF sc>100 AND h=l THEN 
GO TO 610 

400 LET d=INT (SQR ((ls-3)t2+( 
ABS (cs-c) ) 1 2 ) ) 

410 IF INKEY$<>" 1" THEN 
GO TO 450 

420 LET SC= (SC+1) *h: PRINT AT 0 
, 28 ; se 

430 BEEP .1,40: FOR n=?0 TO d*5: 

NEXT n: BEEP .l,70-d*3 
450 LET k= (k+1) *h : IF k>40*q 
THEN GO TO 3000 
500 IF INKEY$="6" THEN LET SC= 
(sc+1) *h: LET dc=dc+l* (dc<2 
1) 

510 IF INKEY$=" 7" THEN LET sc= 
(sc+1) *h: LET dc=dc- 1* (dc>5 
) 

520 PRINT AT 0,17; de- 3;" " ; AT 0 
,28; se;" " 

530 IF dc=3 THEN GO TO 600 
540 IF INKEY$=" 2" THEN GO TO 7 
00 

550 FOR n=0 TO 20: NEXT n: 


GO TO 500 

600 IF INKEY$<>"0" THEN 
GO TO 300 

->610 PRINT PAPER 1; INK 7;AT ls 
,cs; "DEF" 

620 LET h=0 : GO TO 300 
700 LET SC= (sc+2) *h: PRINT AT 0 
,28; se;" " 

710 FOR n=4 TO dc-1: FOR in=0 
TO 1 

720 PRINT PAPER 1; INK 7; 

OVER 1 ; AT n ,c+l ; "G" : 

BEEP .3,1 

730 NEXT m: NEXT n 
740 IF n>ls+l OR n<ls- 1 OR c>cs 
+2 OR c+2<cs THEN GO TO 90 
0 

745 FOR n=0 TO 5: PRINT 

PAPER 1; INK 6; OVER 1; 

AT ls ,cs ; "DEF" : BEEP .05,20 
: NEXT n 

750 PRINT PAPER 1;AT ls,cs;" 

II 

760 FOR n=0 TO 9: PRINT 

PAPER 1; INK 6; OVER 1; 

AT ls ,cs ; " HJH " 

770 BEEP .05,20: NEXT n: 

PRINT PAPER 1 ; AT ls,cs;" 

II 

780 FOR x=ls TO 21: FOR n=0 
TO 3 

790 PRINT PAPER 1; INK 7; 

OVER 1 ; AT x,cs-l; "IKHKL" 
800 IF x+l<=21 THEN PRINT 

PAPER 1; INK 7; OVER 1; 

AT x+l,cs-l; "KHJHI " 

810 IF x+2<=21 THEN PRINT 

PAPER 1; INK 7; OVER 1; 

AT x+2 , cs- 1 ; "MKIKN" 

820 BEEP . 05 , 40-x*4 : NEXT n: 

* NEXT X 

830 PAUSE 100: CLS : IF sc<bs*h 
THEN LET bs=SC 
8^5 PLOT 56,151: DRAW 168,0 

840 PRINT AT 2 , 7 ; "SOTTOMARINO D 
ISTRUTTO" ;AT 6 , 4 ; "PUNTEGGIO 
:",sc 

845 PRINT AT 10, 4; "BEST SCORE:" 
,bs 

850 IF SC=0 THEN LET a$="Non h 
ai ottenuto punti.": 

GO TO 870 

860 IF sc<30 THEN LET a$="Arru 
olati in Marina!": GO TO 87 
0 

861 IF sc<60 THEN LET a$=" 
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Eccellente!": GO TO 870 

862 IF sc<100 THEN LET a$=" 

Ben fatto!": GO TO 870 

863 LET a$="Puoi fare meglio!" 
870 PRINT AT 14,4;a$ 

880 PRINT AT 18 , 1 ; "Premi un tas 
to per giocare.." 

890 PAUSE 0: FOR n=0 TO 10: 

BEEP RND , 30-RND*40 
895 NEXT n: GO TO 100 
900 LET dc=3 : FOR m=0 TO 7: 

BEEP .05,-10 

910 PRINT PAPER 1; INK 6; 

OVER 1; AT n ,c+l ; "H" 

920 NEXT m: PRINT PAPER l.;AT n 
,c+l ; " " 

930 GO TO 300 
1010 PRINT AT 10,6;" 

II 

1020 PRINT AT 2,0;"Sei a bordo d 
i una una nave che sta per 
essere colpita da un sot 
tomarino nemico che non può 
i vedere.." 

1030 PRINT INK 2;AT 6,ll;"COMAN 
DI": PRINT AT 8 , 10 ; " 1" , "Son 
ar";AT 10 , 10 ; " 2" , "Lancio bo 
mbe";AT 12,8;" 5 & 8","Movim 
ento nave";AT 14,8;" 6 & 7", 
"Profondità ' bombe" 

1050 PRINT AT 20, 9; "Premi un tas 
to" 

1060 PAUSE 0: PRINT AT 2,0;" ";: 

FOR n=l TO 146 
1070 PRINT " ";: NEXT n 

1080 PRINT AT 3 , 0 ; "ATTENZIONE ! 

Il sotto 

marino può' rispondere al 
fuoco. Un particolare suono 
ti dice se un siluro si s 
ta avvicinando." 

1090 PRINT "Devi decidere se muo 
vere la nave o meno.. E' sol 

0 questione di fortuna.." 

1 I I I 

1100 PAUSE 0: PRINT "Questo e' i 

I suono che ti avvisadel pe 
ricolo. . " 

Ilio FOR, n=0 TO 50: BEEP .05,50: 
NEXT n 

1120 PRINT AT 21, 10; "per giocare 

II 

1130 PAUSE 0: RETURN 

2010 FOR q=144 TO 157 

2020 FOR n=0 TO 7 

2030 READ a: POKE USR CHR$ q+n,a 



2040 NEXT n: NEXT q 
2045 RESTORE : RETURN 

2050 DATA 0,0,0,1,1,255,255,127 

2051 DATA 0,24,24,217,255,255,25 
5,255 

2052 DATA 128,128,128,240,240,25 
5,254,252 

2060 DATA 0,0,0,0,127,255,255,12 
7 


2061 DATA 128,240,240,240,255,25 
5,255,255 

2062 DATA 0,0,0,0,249,255,255,24 
9 

2070 DATA 0,0,126,126,126,126,0, 
0 

2080 DATA 20,82,72,32,148,1,82,8 
4 


2081 DATA 5,0,40,0,21,64,37,136 

2082 DATA 9,64,36,64,32,4,32,132 


2083 DATA 0,40,2,72,18,64,10,64 

2084 DATA 64,16,64,8,130,40,68,3 
4 

2085 DATA 5,64,16,4,0,18,0,2 

2086 DATA 85,0,84,0,136,32,20,16 
0 

3000 IF kl<4 THEN BEEP .05,50: 

LET kl=kl+l: GO TO 600 
3010 LET q= . 5+ (RND/ 2) : LET k=0: 
LET kl=0 

3020 LET ct=c- 3+INT (RND*8+.5) 
3030 IF c=ct OR c+l=ct OR c+2=ct 
THEN GO TO 3050 
3040 GO TO 600 

3050 PRINT AT 3,c;" ": FOR n=4 

TO 21: FOR m=0 TO 1 
3060 PRINT PAPER 1; INK 5; 

OVER 1 ; AT n,c;"ABC" 

3070 BEEP . 1 , 20-n*2 : NEXT m: 

NEXT n , 

3080 LET sc=sc+20: LET a=INT ( 
RND+. 5) 

3090 LET c=29*a : PRINT AT 3,c;"A 
BC": GO TO 300 
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di Graham Ramsden 

trad. e adatt. di 

Paolo Maffei 



Una lotta all’ultimo... pestone per 
salvare il vostro pranzo all’aria 
aperta. 


P icnic è un originale gioco per lo 
Spectrum 16K nel quale interpreta- 
te la parte di un... piede. 

Alcune formiche vogliono rovinare il 
vostro picnic cercando di rubare la 
frutta dal cestino. Ci vogliono 4 formi- 
che per portare via ognuno dei 3 frutti 
e voi dovete schiacciarle con il piede 
prima che loro sabotino completamen- 
te il vostro picnic. Ma dovete stare an- 
che attenti a non calpestare le farfalle 
che compaiono ogni volta che tentate 
di schiacciare una formica. 

Per rendere più veloce il gioco si pos- 
sono apportare delle piccole variazioni 
al programma. Il metodo più semplice 
consiste nell’eliminare alcune istruzio- 
ni BEEP, soprattutto nella linea 120. 
Inoltre si possono spostare le linee dal- 
la 7 alla 80, e sistemarle alla fine del 
programma sostituendole con una 
semplice chiamata di routine 
(GOSCIB...). 


Linee 

Commento 

7-8 

vengono definite le principali variabili 

9 

presentazione grafica del gioco 

10-40 

creazione dei caratteri grafici autodefiniti 

50 

viene chiamata la subroutine che contiene le istruzioni 

60 

viene chiamata la subroutine che disegnano l’intestazio- 

80-82 

ne 

disegna il frutto nella parte bassa dello schermo e chia- 
mano la relativa routine per cancellare il vecchio frutto 

90 

controlla il tasto premuto e muove il piede nella giusta 
direzione 

100 

se è stato premuto il tasto “1” chiama la subroutine cor- 
rispondente 

120-130 

muovono la formica 

140 

se la formica ha attraversato lo schermo viene aggiorna- 
ta la variabile bop e modificata la posizione della formi- 

145 

ca 

4 formiche hanno attraversato lo schermo: diminuisce il 
numero dei frutti rimasti vengono ridiginite le variabili 
e rimanda alla linea 81 

150 

punteggio 

155 

se i frutti sono terminati, rimanda alla linea 4030 

160 

ritorno all’inizio del ciclo 

200-220 

disegnano il movimento verticale del piede e controlla- 
no se è stata colpita una farfalla o una formica. Se è una 
farfalla perdi il frutto; se è una formica il punteggio au- 
menta di 2 o 4 punti a seconda della precisione 

1000-1030 

Intestazione del gioco 

2000-2030 

Fine della partita, BEEP, e autorun del programma. 

3000-3096 
4000-4010 e 

Istruzioni. 

4015-4020 

queste routines cancellano il vecchio frutto e inserisco- 
no nelle 4030-4040 quello nuovo. 


Picnic 

versione per ZX Spectrum 16K/ 48K 

7 LET a=10 : LET ant=0: LET se 
=0: LET f r=3 : LET bop=0 

8 LET a$="AB" : LET b$="CD": 

LET c$="EF" : LET d$="GH": 

LET e$ = "I_J" : LET f$ = "KL": 

LET g$="RS" 

9 CLS : LET m$=" P I C N 
I C "s FOR q=19 TO 1 

STEP -2: PRINT AT q,6; 

INK 0; PAPER 7; BRIGHT 1; 
FLASH 1 ;m$ : BEEP .01,q+10: 
BEEP . 01 f q+13 : BEEP .01,q+' 


16: NEXT q: LET q$="Attento 
alla Farfalla!!!": FOR c=l 
TO LEN q$: LET r$="": 

LET r$=r$+q$ (c) : PRINT 
AT 10,c+3; INK 6; PAPER 2; 
BRIGHT 1; FLASH l;r$: 

BEEP . 01,c: BEEP . 01 ,c+3 : 
BEEP . 01,c+6: NEXT c: 
BRIGHT 0 

10 FOR f =0 TO 18: FOR n=0 TO 7 
: READ x: POKE USR CHR$ (14 
4+f ) +n ,x : NEXT n: NEXT f 
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20 DATA 0,0,0,0,1,3,3,3,0,96,1 
44,128,128,192,192,192,7,7, 
15,31,29,24,13,7,224,224,24 
0,248,248,248,240,224,30,15 
,7,3,3,1,1,1,0,128,224,240, 
248,252,252,252,1,1,1,3,3,7 
,15,30,252,252,252,248,240, 
224,128,0 

30 DATA 6,1,6,1,15,17,44,45,32 

,64,176,64,240,136,52,180,4 

9,16,27,11,8,7,3,1,140,8,10 

4.112.16.96.64.128.0. 0.227, 

236.82.137.0. 0.0.192.199.55 
,74,145,0,153,153,153,153,1 

53.153.153.153.0. 1.3.43.85, 
234,255,127,126,36,36,194,1 
99,255,255,254,36,50,105,12 
5,62,53,25,17,36,76,150,190 
,124,248,25,136 

40 DATA 8,92,145,238,77,172,15 
2,136 

50 GO SUB 3000 
60 GO SUB 1000 
70 PRINT AT 21,0? INK 4?" 

{ 32SG8 } " 

80 IF fr=3 THEN PRINT AT 19,2 
9; INK 4 ; a$ ? AT 20,29;b$ 

81 IF fr=2 THEN GO SUB 4000 

82 IF f r=l THEN GO SUB 4015 
90 LET a=a+ ( INKEY$ = "0 ,, AND a<2 

6) - ( INKEY$="9" AND a>0) : 
PRINT AT 2, a? INK 1?" PQ " 

100 IF INKEY$="1" THEN 

GO Sud 200 

120 PRINT AT 20 , ant ; INK 0?" M" 
: BEEP .001,50: BEEP .00 1,4 


130 LET ant=ant+l 
140 IF ant=28 THEN LET bop=bop 
+1: LET ant=0 : PRINT AT 20, 
31; INK 0 ; "N" ; AT 20,28?" " 

145 IF bop=4 THEN LET fr=fr-l: 
BEEP .25,30: BEEP .75,0: 
LET bop=0 : PRINT AT 20, ant 
?.. ... LET ant = 0: PRINT AT 2 

0. 31?" ": FOR p=2 TO 16: 
PRINT AT p, 0 ? INK 0?" 

Il 

: BEEP . 01 ,p+10 : NEXT p: 
NEXT n: GO TO 81 
150 INK 1: PRINT AT 0,10;sc: 

PRINT AT 0 , 29 ? fr 
155 IF fr=0 THEN GO TO 4030 
160 GO TO 90 

200 FOR f =2 TO 14: PRINT AT f+1 
,a+l? INK 1? "PQ";AT f ,a+l; " 

O";: BEEP . 001 , f +20 : 

BEEP . 001 , f +22 : BEEP .001, 
f +24 : NEXT f: IF ATTR (f+1, 
a+1) =43 OR ATTR (f+l,a+2)=4 
3 THEN LET bop=4: IF bop=4 
THEN GO TO 145 

201 FOR z=15 TO 18: PRINT AT z+ 

1, a+l; INK 1; "PQ";AT z,a+l; 
" O": BEEP . 001 , z+20 : 

BEEP . 001 , z+22 : BEEP .001, 
z+24 : NEXT z 

205 IF z+l=20 AND a+l=ant 

THEN LET SC=SC+2: PRINT 
AT 20, ant; INK 0;"v";AT 20, 
ant; OVER l;"x": FOR i=0 
TO 4: BEEP .01,55: BEEP .0 
1,53: BEEP .01,51: NEXT i: 
LET ant=0 

206 IF z+l=20 AND a+2=ant 

THEN LET SC=SC+4: PRINT 
AT 20, ant; INK 0;"x";AT 20, 
ant; OVER l?"v": FOR i=0 
TO 4: BEEP .01,55: BEEP .0 
1,53: BEEP .01,51: NEXT i: 
LET ant=0 
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210 FOR f =20 TO 3 STEP -1: 

PRINT AT f,a+l;" " ; AT f-1 

,a+l; INK 1 ; " PQ" : BEEP .001 
, f+20 : BEEP . 001 , f +22 : 

BEEP . 001 , f+24 : NEXT f 

211 PRINT AT 16 , INT (RND*10)+2; 

ii it 

215 PRINT AT 16,a+l; INK 3;g$ 
220 RETURN 

1000 BORDER 5: PAPER 5: INK 5: 
CLS 

1010 PRINT INK 1; "Punteggici" ; s 
c;" {SG8 } PIC NIC { SG8 } Fruit 
= " ; fr ; " M" 

1030 FLASH 0: RETURN 
2000 PRINT AT 10,7; INK 3; 

FLASH 1; PAPER 7; "Hai pers 
o il picnic" 

2010 FOR n = 50 Tu 0 STEP -1: 

BEEP . l,n: BEEP . l,n+2: 
BEEP . 1 , n+4 : NEXT n 
2020 FOR v=50 TO 30 STEP -1: 

BEEP .001,v+6: BEEP .001,v 
+ 3: BEEP . 0 0 1 , v : NEXT v 
2030 RUN 

3000 PAPER 4: INK 0: CLS 
3010 PRINT " LJ N PIC NI 
C M IJ " 

3040 PRINT "RSRSRSRSRSRSRSRSRSRS 


RSRSRSRSRSRS " 

3050 PRINT INK 7;';"Stai facend 
o un tranquillo picnic 

....quando all'improvviso 1 
e odiose formiche arrivano 
a rovinare tutto." 

3060 PRINT INK 7;"Loro cercan 
o di rubare la tua frutta 
,ma ci vogliono 4 formichep 
er rubare ognuno dei 3 frut 
ti" 

3070 PRINT ' ; INK 7; "Quindi devi 

calpestarle oppureil tuo 

picnic sara' rovinato" 

3075 PRINT ' INK 7;" “9". ..si 

nistra" ; ' ' ; " ~0~...destr 

a ii. i in ~1~ .. .calpesta" 

3080 FOR g=0 TO 5: FOR 1=0 TO 7: 

BEEP .1,1+40: BORDER 1 

3081 IF INKEY$<>" " THEN 

RETURN 

3082 NEXT 1 

3085 FOR k=7 TO 0 STEP -1: 

BEEP . 1 , k+40 : BORDER k 

3090 IF INKEY$ < > " " THEN 

RETURN 

3095 NEXT k: NEXT g 

3096 CLS : RETURN 

4000 FOR x=28 TO 1 STEP -1: 

PRINT AT 18, x; INK 4 ; " AB " 
; AT 19,x;/'CD " ; AT 20,x-l; 

INK 0 ; "Nf Ni : BEEP .01, x: 

BEEP . 01 ,x- 2 : BEEP .01,x-4 
: NEXT x: PRINT AT 18,0;" 

" ; AT 19,0;" " 

4001 PRINT AT 19,29; INK 6;c$; 

AT 20 , 29 ;d$ 

4002 LET f r=2 

4010 RETURN 

4015 FOR x=28 TO 1 STEP -1: 

PRINT AT 18 , x ; INK 6;"EF " 

; AT 19 ,x; "GH " ; AT 20,x-l; 

INK 0 ; "N N BEEP .01,x-4 
: NEXT x: PRINT AT 18,0;" 

" ; AT 19,0;" " 

4016 PRINT AT 19,29; INK 2;e$; 

AT 20 , 29 ; f $ 

4020 RETURN 

4030 FOR x=28 TO 1 STEP -1: 

PRINT AT 18, x; INK 2;"IJ " 

; AT 19 , x ; "KL " ; AT 20,x-l; 

INK 0 ; "N N BEEP .01,x-4 
: BEEP . 01 ,x-2 : BEEP .01, x- 
4: NEXT x: PRINT AT 18,0;" 

" ; AT 19,0;" " 

4040 GO TO 2000 
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a cura di 

Lucio Bragagnolo 


Pedro 


Come è dura la vita di un giardinie- 
re! 



I 


n questo simpaticissimo e frenetico 
arcade ricoprite il ruolo di Pedro, 
giardiniere dalle evidenti origini cen- 
troamericane, impegnato alla cura del- 
la sua modesta aiuola, forse un po’ ri- 
stretta come dimensioni ma certamen- 
te tra le più belle e curate della zona. In 
basso e sulla destra figurano un muc- 
chio di concime e uno di mattoni, con i 
quali il nostro sta costruendo un labi- 
rinto a scopo ornamentale. Vicino a lui 
anche una cassetta di semi; al centro 
del giardino, i suoi bellissimi fiori, co- 
stati mesi di fatiche e cure amorevoli. 
C’è proprio di che esserne orgogliosi! 
Sì, Pedro è davvero una persona felice 


e fiera del suo lavoro... ma che succe- 
de? Da dove arrivano quei giganteschi 
formiconi? E che cosa stanno facen- 
do? Si mangiano i fiori! Stanno rasan- 
do al suolo l’intera aiuola! Improvvisa- 
mente per il piccolo giardiniere si sca- 
tena rinferno. Le formiche, poche ma 
agguerrite, distruggono un fiore dopo 
l’altro. Egli cerca di contrastarle sbar- 
rando loro la strada con mucchi di con- 
cime e, vista la scarsa resistenza di 
questi, coi mattoni. Riesce anche a 
schiacciare sotto i piedi alcuni degli 
assalitori, ma presto diventa evidente 
che per respingere la ferocissima orda 
ci vuole ben altro... e tenta di correre ai 
ripari precipitandosi verso i semi, per 
rimpiazzare i fiori distrutti con altri 
giovani e teneri germogli. Ma ecco un 
malintenzionato avvicinarsi con aria 
cupida ai semi! Ancora Pedro deve 
correre a salvare la sua unica ricchez- 
za, e mettere in fuga 11 ladro. Siccome 
il giardino è sempre stato tutto per lui, 
è chiaro che la sparizione totale 
dell’aiuola provocherà la sua morte. 
Per quanto tempo riuscirà a sopravvi- 
vere? Le formiche non si vedono più, e 
c’è il tempo di piantare qualche altro 
fiore - prima dell’arrivo dei ratti gigan- 
ti! 

Passando da un’ondata all’altra, vi ri- 
troverete sempre più coinvolti nel gio- 
co, catturati dalla velocità e dalla pre- 
cipitazione con cui dovrete condurre la 
partita. Inizialmente PEDRO sembra 
un arcade come tanti altri: ma si di- 
stacca quasi subito dalla massa, se non 
altro per la varietà delle situazioni pro- 
poste. Sebbene infatti il pericolo da re- 
spingere sia praticamente sempre lo 
stesso, non è possibile usare una tatti- 
ca, come dire, monodirezionale (cioè 
rivolta a controllare il gioco in modo di 
poter giocare all’infinito secondo un 


unico pattern predeterminato): il no- 
stro eroe può muoversi in tutte le dire- 
zioni, per tutta l’estensione del giardi- 
no, e troverà dovunque qualcosa da fa- 
re - e fin qui va tutto bene -, ma da fare 
urgentemente: qui sta il segreto del 
gioco, che trasforma ogni partita in 



una affannosa e frenetica corsa al sal- 
vataggio dei fiori , nel tentativo di de- 
streggiarsi tra le varie azioni possibili 
che il piccolo giardiniere può compie- 
re. Oltretutto, il posizionamento di Pe- 
dro è molto critico (nel senso che per, 
diciamo, prendere un mattone o semi- 
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nare un fiore bisogna essere proprio 
nel punto giusto, con un margine di er- 
rore assolutamente minimo) e questo 
vi creerà delle notevoli difficoltà, spe- 
cialmente agli inizi e giocando con la 
tastiera. È prevista comunque anche la 
compatibilità del gioco con alcuni joy- 
stick: Fuller, Sinclair, Kempston, AGF, 
Protek. Inutile dire che, data la com- 
plessità del gioco, sono richiesti i 48K 
di memoria. 

Concludendo, PEDRO è un arcade di 
ottima qualità e grande giocabilità, 
che vi terrà sicuramente impegnati a 
lungo sulla tastiera (se volete, potete 
segnalarci i vostri risultati: vi racco- 
mandiamo comunque di essere onesti 
e di non gonfiare i punteggi realmente 
ottenuti!), soprattutto se avete il cosid- 
detto "pollice verde’’... 


Cosmic cruiser 

Una temeraria spedizione di soc- 
corso spaziale 

“Un manipolo di pirati spaziali appar- 
tenenti al malvagio Impero Galattico 
di Rallom si è impossessato con un au- 
dace colpo di mano di una stazione or- 
bitante terrestre. La sola astronave 
amica nelle vicinanze è la vostra — un 
vecchio incrociatore a medio raggio — 
a cui viene affidato il compito di porta- 
re in salvo, a qualsiasi costo, l'equipag- 
gio della stazione, rimasto prigioniero 
degli alieni rallomiani...”. 

Così si legge sul foglio introduttivo di 
questo gioco per lo Spectrum 48K, 
una delle ultimissime creazioni della 
Imagine, che siamo in grado di presen- 
tare in anteprima per l’Italia (tant’è ve- 
ro che, nel momento in cui viene scrit- 
ta questa recensione, disponiamo solo 
della cassetta test, senza la possibilità 
di mostrarvi la copertina originale del- 
la cassetta). Un tipico arcade, dunque, 
ma molto ben fatto ed estremamente 
difficile da padroneggiare, almeno gio- 
cando con la tastiera. 

Ma passiamo alla descrizione del gio- 
co. 

Una volta effettuato il caricamento, 
durante il quale appare la solita scher- 
mata iniziale di presentazione — forse 
di qualità leggermente inferiore alla 
media, sicuramente meno bella di àl- 
tre — si sente la sigla iniziale (a propo- 
sito: sapevate che da tempo la Imagine 
ha alle sue dipendenze uno staff spe- 
cializzato nei rispettivi settori, incari- 
cato della realizzazione della parte gra- 
fica e sonora dei vari giochi?), inter- 
rompendo la quale si passa alla scelta 
dei comandi per giocare. Oltre natural- 
mente alla tastiera, viene offerta la 
possibilità di scegliere tra i joystick 
Fuller, Kempston, Protek, AGF, Sin- 
clair e 12L; dopo di che, comincia la 
partita. 

Lo schermo mostra in alto la stazione, 
ruotante da sinistra a destra, con i por- 
telli, chiusi, in evidenza. Nella parte 
bassa viene invece visualizzata una 
parte del vostro incrociatore, col por- 
tello di uscita sulla sinistra e il canno- 
ne laser dalla parte opposta. In mezzo, 
fluttuano due satelliti (di cui parleremo 
più avanti). Sul portello voi, con la pi- 
stola laser già imbracciata. 

La prima cosa che dovete fare è portar- 


vi sul cannone laser, e da lì distruggere 
uno o più portelli della stazione. A 
questo punto è probabile che da essi 
portelli escano alcuni rallomiani 
(dall’aspetto di panciuti linguoni o mo- 
struosità aventi vaghe somiglianze con 
un pesce palla... e questo è solo l’ini- 
zio: non intendiamo guastarvi qualche 
sorpresa successiva). 

Uccideteli col cannone laser o comun- 
que guardate che siano lontani dalla li- 
nea che congiunge voi e il portello che 
volete assaltare, poiché vi daranno la 
caccia non appena abbandonerete la 
postazione. Ora guardate i portelli di- 
strutti, uno per uno: se aM’interno di es- 
si appare un membro dell’equipaggio, 
sono da assaltare: altrimenti lasciateli 
perdere. Ci siete? Date un’occhiata al 
tempo che vi è rimasto — non ne avete 
moltissimo! — ed entrate nel portello 
che avete scelto, aH’interno del quale 
si trova il vostro compagno da soccor- 
rere... ben difeso da una schiera di alie- 
ni e robot che si dirigeranno senza in- 
dugio verso di voi, decisi ad eliminarvi 
senza mezzi termini. Potete effettuare 
il soccorso solamente facendo piazza 
pulita di tutti gli alieni presenti, e que- 
sta è la parte più impegnativa della 
missione: dovete essere infatti in pos- 
sesso di nervi d’acciaio uniti a una 
grandissima padronanza dei controlli, 
o non avete la benché minima speran- 
za di riuscire a combinare qualcosa. 
Una volta ripulito il compartimento ca- 
ricate il vostro compagno e uscite 
all’esterno, ma attenzione! Dovete arri- 
vare al portello del vostro incrociatore 
senza farvi catturare dagli alieni rima- 
sti nello spazio esterno, evitando di 
sparare (perché in questo caso perde- 
reste il membro dell equipaggio appe- 
na salvato), o di toccare i satelliti flut- 
tuanti (idem come sopra). Il tutto, ov- 
viamente, prima che finisca il tempo a 
disposizione per ogni livello. 

COSMIC CRUISER è il tipico arcade 
"spaziale”, ma rispetto ai Vari Space In- 
vaders della situazione si trova in van- 
taggio di qualche anno luce, sia per la 
qualità grafica del gioco, anche se al- 
cune volte l’affollarsi dei vari oggetti 
animati in zone ristrette dello schermo 
provoca fenomeni abbastanza fastidio- 
si di lampeggio o sovrapposizione (del 
resto virtualmente insuperabili, a que- 
sto livello, sul vostro Spectrum), sia 
per l’originalità del soggetto, sia — an- 
che qui vale quanto detto per PEDRO 


74 SCIPERSINC® 2/84 





— per la varietà di situazioni proposte. 
In questo senso ci troviamo ormai alla 
soglia dei giochi o comunque dei pro- 
grammi della “maturità” dello Spec- 
trum: cioè tesi verso lo sfruttamento 
totale di tutte le risorse ottenibili dal 
calcolatore Sinclair. 

Certo, COSM1C CRUISER non è un gio- 
co “intelligente”, le capacità 
strategico-tattiche richieste sono mini- 
me (limitate a favore di una grande 
manualità e di molto esercizio): ma 
pensiamo che per divertirsi non sia ob- 
bligatorio e nemmeno necessario do- 
versi sempre spremere le meningi fino 
alla fusione delle stesse. Anzi, a volte è 
perfino più distensivo un gioco a base 
di alieni e raffiche di laser che non una 
complicatissima simulazione, magari 
dotata di un foglio di istruzioni chilo- 
metrico. Purché il gioco in questione 
sia un BEL gioco. Come, appunto, 
questo. 


A tutti i lettori 

Tutti, i listati pubblicati sono stati ricavati direttamente dal computer dopo aver 
eseguito ed accuratamente testato il programma. Non contengono quindi né errori 
tipografici né errori che comunque impediscano la corretta esecuzione del 
programma stesso. Vi preghiamo pertanto di prestare la massima attenzione nella 
copiatura e di non tempestare di telefonate la redazione, in quanto, ripetiamo tutti i 
listati pubblicati sono corretti. Per eventuali errori tipografici riscontrati nelle linee 
eventualmente comprese nel testo degli articoli (e quindi fotocomposte), verrà pub- 
blicata una errata corrige sui numeri successivi della rivista. 






* 



PEDRO (cod. DIGMS08) e COSMIC CRUISER 
(cod. DIGMS09) sono in vendita presso: 
TECHNOCLUB via Rosellini, 12 20124 Milano 
a L. 14.000 cad. più L. 2.000 per spese di 
spedizione. I programmi possono essere ordinati 
utilizzando il coupon pubblicato a pag. 82 
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THE ZX 
SPECTRUM 

and how to get 
thè most from it 


| IAN SINCLAIR 


Vista la carenza, nel momento in cui 
scriviamo, di grandi novità editoriali 
sul mercato italiano, dedichiamo inte- 
ramente le recensioni di questo nume- 
ro alla produzione britannica. Per quel- 
li che avessero poca dimestichezza con 
la lingua inglese - trovandola ostica o 
addirittura antipatica - una assicurazio- 
ne: sul prossimo (e non solo sul prossi- 
mo) numero ci sarà pane per i loro 
denti... ma ora non sprechiamo altro 
tempo ed entriamo subito in argomen- 
to. 

Come prima cosa, non pensate a rac- 
comandazioni, rapporti privilegiati di 


parentela o appartenenza comune a 
strane logge più o meno massoniche: 
Ian Sinclair, l’autore, non ha alcun rap- 
porto col più famoso Clive, all’infuori 
della semplice omonimia (come lui 
stesso tiene a precisare nell’introduzio- 
ne). Il libro quindi è stato scritto nella 
più totale libertà e indipendenza di giu- 
dizio; non mancano difatti, capitolo 
per capitolo, accenni di comparazione 
o critiche verso altri calcolatori o lo 
Spectrum stesso, a seconda dell’argo- 
mento trattato. Potrete notare a questo 
proposito, in mezzo a giudizi sempre 
abbastanza sfumati e compassati, tipi- 
camente “inglesi”, un lampo di ferocis- 
sima ironia (forse emerso dall’incon- 
scio in un momento di scarso autocon- 
trollo personale) rivolto contro un ho- 
me computer di altra marca peraltro 
diffusissimo in Italia. Parlando infatti 
dello Spectrum come di un “vero” cal- 
colatore (con cui, data la quantità di 
memoria potenziale disponible e pre- 
vio uso dei Microdrive è possibile an- 
che la piccola/media elaborazione ge- 
stionale dei dati), lo si contrappone a - 
citiamo testualmente - “glorificate ‘ga- 
me machines’ con una minuscola me- 
moria e bisognose di costosissime car- 
tucce aggiuntive per poterle fare lavo- 
rare”. 

Crediamo che non ci sia bisognp di fa- 
re nomi. 

Aldilà degli scherzi (e degli attacchi di 
bile), lo scopo dichiarato del libro è di 
rivolgersi al primo utilizzatore, o a chi 
arriva allo Spectrum da altri sistemi, 
trovandosi spesso in difficoltà nel ten- 
tativo di sfruttare le peculiarità del BA- 
SIC Sinclair. 

Effettivamente Sinclair (Ian) è riuscito 
nel suo intento scrivendo un libro che, 
si propone come fedele compagno 
sulla via della programmazione, da te- 
nere di fianco al nostro piccolo ZX e a 
cui ricorrere in caso di incertezze o 
problemi, privilegiando l’idea di una 
guida da sfruttare volta per volta ri- 
spetto a quella del libro da leggere tut- 
to d’un fiato come un’opera omogenea 
o compatta. 

Anche la struttura dei vari capitoli è 
impostata in- questo senso; ogni argo- 


mento viene trattato per mezzo di cor 
sigli di programmazione spicciola, ca 
si particolari e problemi generali che 
tutti i programmatori o aspiranti tal 
hanno incontrato e quotidianamente 
incontrano nella loro attività. Manca 
certo, una descrizione globare delle 
varie possibilità dello Spectrum: ma si 
presume che per questo sia già più che 
sufficiente il manuale (e qui pensiamo 
che alcuni avrebbero qualcosa - forse 
di poco gentile - da dire in proposito). 
Il libro parte veramente da zero, soffer 
mandosi abbastanza a lungo sul come 
collegare il computer a televisore e re- 
gistratore, per poi immergersi nel vivo 
della materia. La trattazione di ogni ar- 
gomento viene fatta in modo da non 
fornire solamente la spiegazione del 
mero “come funziona”, ma anche i 
vantaggi che possono derivare dalla 
corretta applicazione di quanto spiega- 
to. A questo proposito è confortante 
poter rilevare la non dimenticanza di 
alcune funzioni perennemente trascu- 
rate che invece, se bene usate, potreb- 
bero contribuire a rendere la program- 
mazione più facile, specialmente ai 
meno esperti che magari nemmeno le 
hanno mai notate. Valgano per tutti gli 
esempi di DEF FN, FN, il segno 
nelle istruzioni PRINT, POINT e così 
via. 

Finalmente abbiamo letto una spiega- 
zione sintetica e comprensibile a tutti 
del concetto di radiante e delle sue ap- 
plicazioni nel BASIC: e raccomandia- 
mo inoltre la lettura del capitolo 
“Sound Sense”, dedicato alla capacità 
sonore dello Spectrum e veramente 
stupendo quanto a completezza, chia- 
rezza e contenuto di informazioni. 

Al termine del libro, alcune appendici, 
di varia utilità: come regolare la testina 
del registratore per una corretta lettura 
(ottima), l’uso dell’orologio in tempo 
reale sullo Spectrum, un’introduzione 
al codice macchina (un poco scarna), 
una descrizione delle possibilità di 
espansione a disposizione, una routine 
di renumber (anche se non ci fosse sta- 
ta non ne avremmo davvero sentito la 
mancanza), qualche consiglio su come 
agevolare le operazioni di 
LOAD/SAVE e un glossario finale di 
termini attinenti al mondo dell’infor- 
matica, che senz’altro farà la felicità di 
chi ha sempre avuto tra le sue aspira- 
zioni quella di riuscire a capire certi 
termini astrusi e incomprensibili. 

Nel complesso, un libro in grado di ri- 
solvervi molti problemi, e che potrà es- 
servi d’aiuto, specie agli inizi della “ars 
programmandi”. 
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Se finora abbiamo presentato libri di 
argomento generico, destinati a soddi- 
sfare nei limiti del possibile tutte le esi- 
genze dei possessori di uno Spectrum, 
ci occupiamo questa volta di un lavoro 
a carattere estremamente specifico, di- 
retto agli appassionati di un’unica 
branca del grande insieme delle appli- 
cazioni del computer (anche se vedre- 
mo più tardi come l’affermazione ap- 
pena fatta sia solo parzialmente 
valida): i giochi. Non che il settore 
dell’informatica ludica sia ristretto: an- 
zi, si calcola che più della metà ’del 
software esistente sulla terra sia dedi- 
cata ai patiti del Joystick e delle pad- 
di e, disposti a sacrificare ore e ore del 
loro tempo libero per distruggere on- 
date di invasori spaziali, liberare affa- 
scinanti fanciulle dalle mani del catti- 
vo della situazione, o magari compila- 
re dettagliatissime mappe dei luoghi 
più o meno incantati in cui si imbatto- 
no nel tentativo di scoprire i segreti ce- 
lati nel loro adventure game preferito; 
ma si tratta pur sempre di un settore, 
in mezzo a centinaia di altri ugualmen- 
te importanti. 


Gioco, dunque: e il libro mostra subito 
la sua finalità principale, evidente dal- 
la copertina dove campeggia, stilizza- 
ta, un’immagine tratta da uno dei ca- 
postipiti deH’immensa famiglia degli 
arcade. 

In effetti sarebbe facile dare un’occhia- 
ta superficiale a questo “Book of ga- 
mes” per bollarlo frettolosamente co- 
ma la solita raccolta di giochini per 
bambini. La realtà invece è diversa, e 
basta approfondire di poco l’indagine 
per scoprire molte cose interessanti 
che rivalutano di molto il lavoro com- 
piuto dagli autori. 

I giochi, presentati sono 21, di cui 10, 
definibili senza indugio come arcade: 
tra questi anche il superclassico Spec- 
trum Invaders, seguito da altri passa- 
tempi per cui si richiedono buona de- 
strezza e ottimi riflessi, tutti comunque 
contraddistinti dalla ricerca dell’origi- 
nalità, se non nella scelta dell’argo- 
mento del gioco almeno nel suo mec- 
canismo. Da citare Commando Jump 
(un provariflessi), Sheepdog Trials (le 
peripezie di un cane pastore che tenta 
di radunare un gregge di pecore) e Sa- 
ve The Whale, dal meccanismo cono- 
sciutissimo ma ambientato nienteme- 
no che in. ..Groenlandia. 

Oltre a questi, abbiamo poi i giochi, di- 
ciamo, “intelligenti”, volti al ragiona- 
mento o comunque all’attenzione di 
chi partecipa. Qui spaziamo dal bana- 
lissimo (e che avrebbero potuto rispar- 
miarci) Noughts and Crosses - il Tris - a 
Mirror Tile, ispirato a un noto gioco 
enigmistico, a un Nine Hole Golf molto 
stimolante e classificabile come uno 
dei migliori giochi del libro, a Capture 
thè Quark, interessante gioco di scac- 
chiera, anch’egli piuttosto conosciuto 
ma presentato in una veste più impe- 
gnativa di quella consueta, grazie an- 
che all’intervento di un pizzico di ca- 
sualità. Seguono un paio di program- 
mi utili più che altro come spunto per 
la creazione successiva di giochi più 
complessi, come il lancio di un dado 
con relativa visualizzazione del risulta- 
to, e infine Spectrum Smalltalk, il più 
bello e sorprendente di tutti. 

Si tratta di un programma in grado di 
sostenere una conversazione con un 
interlocutore umano, con effetti e si- 
tuazioni che sicuramente potrebbero 
sbalordire qualche vostro amico non 
molto competente in fatto di program- 
mazione o magari il papà restio ad av- 
vicinarsi alla “cosa” nera e piena di ca- 
vi che minaccia la sua pace familiare. 
Naturalmente il programma funziona 
in inglese, e per adattarlo in italiano 
dovrete sicuramente lavorarci sopra 
con discreto impegno (si tratta in ogni 
modo di un compito di non eccessiva 
difficoltà di chiunque abbia una mini- 
ma esperienza di programmazione e 
sappia maneggiare con una certa di- 
sinvoltura le istruzioni di trattamento 
stringhe presenti sullo Spectrum). 
Avete evidentemente anche la possibi- 
lità di ampliare il vocabolario a dispo- 


sizione del calcolatore, soprattutto per 
chi ha i 48K, formandosi un vero e pro- 
prio alter ego elettronico. 

Per ciò che riguarda la struttura gene- 
rale del libro, bisogna dare atto agli au- 
tori di avere compiuto un ottimo lavo- 
ro: infatti niente è stato lasciato al ca- 
so. Ogni programma è diffusamente 
commentato, con la spiegazione del 
meccanismo del gioco, l’indicazione 
delle linee che potrebbero presentare 
ambiguità in fase di inserimento, la de- 
scrizione a blocchi del listato e i sugge- 
rimenti per coloro che volessero ci- 
mentarsi neH’ampliamento, migliora- 
mento e personalizzazione di quanto 
pubblicato. Queste parti del libro sono 
estremamente utili per chi desideri im- 
parare a programmare sullo Spectrum, 
vista la chiarezza e la semplicità con 
cui vengono illustrate la struttura e il 
funzionamento delle varie routine che 
compongono ogni programma. In que- 
sto senso, come si diceva all’inizio, il 
banale libretto di giochini si trasforma 
in un utile strumento di apprendimen- 
to anche per chi ha altri interessi; tanto 
più se si considera che la tecnica della 
programmazione dei giochi è spesso 
molto più complessa di quanto non 
sembri vedendo il gioco stesso in fun- 
zione. 

I listati, infine, sono ottimamente ri- 
prodotti (con una stampante diversa 
dalla ZX Printer e da altre contraddi- 
stinte da un funzionamento analogo), 
consentendo una perfetta leggibilità. E 
stato approntato un sistema di codifica 
per i caratteri grafici, che indica anche 
quali di essi sono shiftati (cioè ottenibi- 
li premendo CAPS SHIFT insieme al 
tasto grafico richiesto); tutti i listati so- 
no numerati con passo di linea unifor- 
me e la struttura stessa dei programmi 
si presenta estremamente ordinata e 
“pulita”. 

Certamente questo libro non tratta 
istruzioni strane né si addentra nella 
spiegazione di complicate tecniche di 
programmazione: potrebbe succedere 
tuttavia che, una volta compratolo per 
i giochi contenuti, si riveli invece un 
efficace mezzo per imparare. Quasi co- 
me un professore, ma di quelli capaci: 
in grado cioè di insegnare divertendo. 


The ZX Spectrum (cod. 
BGRC002) e The Spectrum 
Book of Games (cod. 
BGRC003) sono in vendita 
presso: TECHNOCLUB via 
Rosellini, 12 - 20124 Milano 
a L. 14.900 cad. più L. 2.000 
per spese di spedizione. I libri 
possono essere ordinati 
utilizzando il coupon 
pubblicato a pag. 82 
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D opo la pagina di presentazione 
pubblicata sul numero precedente, 
siamo finalmente in grado di darvi una 
pagina ZX Club più concreta, grazie al 
materiale giuntoci in questo mese. 
Senza quindi perdere altro tempo (e 
spazio), diamo subito la parola, anzi, la 
penna agli amici del SINCLAIR CLUB 
di BOLOGNA, autori di un bollettino 
ormai al suo terzo anno di vita e di nu- 
merose altre iniziative, tra cui la ge- 
stione di ua ZX biblioteca, la vendita di 
software autoprodotto e - udite, udite, 
sinclairisti di tutta Italia - un network 
telefonico per ZX Spectrum, non sap- 
piamo se già operativo o meno. Per 
tutti gli interessati, ecco l’indirizzo del- 
la segreteria del club: 

Sinclair Club Bologna 
Associazione di Utenti di Microcompu- 
ter 

Via Molino Vecchio 10/F 
40026 Imola (BO) 

E veniamo al software! 

Caratteri in corsivo sullo Spec- 
trum 

di Luigi Rizzo 

Questa breve routine in linguaggio 
macchina permette allo Spectrum di 
scrivere in corsivo. Il principio di fun- 
zionamento è semplice; basta costrui- 
re una tabella che contenga i nuovi ca- 
ratteri ‘inclinati” e modificare opportu- 
namente il puntatore alla locazione 
23607. Tuttavia è abbastanza noioso 
effettuare la conversione di tutti i codi- 
ci per poi digitarli (sono più di 700!), 
ne è più veloce utilizzare il programma 
apposito presente sulla cassetta dimo- 
strativa “Horizons”. Appare ovvio che 
l’unico modo di evitare tutto questo la- 


voro è fare ricorso all’uso del set di ca- 
ratteri già presente in ROM, effettuan- 
do le necessarie modifiche per poi ri- 
scrivere il tutto in RAM. 

Per ottenere i caratteri corsivi è suffi- 
ciente fare “slittare” verso destra o ver- 
so sinistra alcune righe della vecchia 
tabella: la cosa, naturalmente, è più fa- 
cilmente e velocemente eseguibile in 
linguaggio macchina che non in BA- 
SIC; pubblichiamo qui di seguito, co- 
munque, entrambe le versioni. 

Per quanto riguarda il linguaggio mac- 


I numeri tra parentesi sono gli indirizzi 
dell’istruzione RAND... in esadecima- 
le, e non vanno usati in ambiente BA- 
SIC. 


FF40 160 SET 
FF43 170 
FF43 180 
FF49 190 
FF4B 200 


china, la routine risulta molto corta e 
perfettamente adattata agli Spectrum 
16K o 48K tramite opportune istruzio- 
ni POKE. 

Una volta di seguito, il programma 
può essere cancellato — NON spegne- 
te però lo Spectrum! Un NEW (o un 
POKE 23607,60) ristabilisce il set nor- 
male, che può però essere sostituito 
con quello modificato in qualsiasi mo- 
mento. Ecco la tabellina delle istruzio- 
ni necessarie, per entrambe le configu- 
razioni di memoria: 


Per i programmatori in linguaggio 
macchina, potete leggere qui sotto il li- 
stato assembler e quello “puro” l/m: 


LD BC, = 300 
LD HL,CHARS 
LD DE, BASE 
LDIR 

LD B, = 60 ;n. caratteri 


RAM 

POKE 23607,... 

CLEAR... 

RANDUSR... 

16K 

123 

31743 

32576 (7F40) 

48K 

251 

64511 

65344 (FF40) 



10 

*H CARATTERI CORSIVI 


20 



30 

;(C) Luigi Rizzo 


40 

; Pisa 3/10/1983 


50 


FC00 

60 

BASE EQCJ = FC00 

3D00 

70 

CHARS EQG =3D00 


80 


FF40 

90 

ORG = FF40 


100 

TARE CLEAR 64511 


110 

;RAND CJSR 65344 


120 

;E POI POKE 23607,251 


130 



140 

;il codice oggetto è riloca 


150 

;bi le senza modifiche 


78 * SUPERSINC® 2/84 




Istruzione DRAW per ZX81 
di Giorgio Guerrini 

La routine che propongo traccia il seg- 
mento congiungente una coppia qua- 
lunque di pixel A = (X1, Yl); 
B = (X2,Y2) dello schermo simulando 
un’istruzione DRAW non presente sul- 
lo ZX81 . 

Il programma è stato realizzato utiliz- 
zando un algoritmo equivalente a quel- 
lo descritto sul manuale dello ZX81 
(capitolo 18, pagina 121), ma essendo 
implementata in linguaggio macchina 
offre, rispetto al BASIC, una velocità di 
esecuzione fino a 25 volte superiore, 
nonché una occupazione di memoria 
inferiore alla metà. A titolo di esem- 
pio, la linea corrispondente alla diago- 
nale dello schermo (da A = 0,0 a 
B = 63,43) viene disegnata in meno di 
un secondo, mentre l’equivalente BA- 
SIC ne richiede circa 25. 

Per caricare la routine aH’interno di un 
programma BASIC eseguite le seguen- 
ti operazioni: 

1) Inserite un’istruzione REM conte- 
nente 130 caratteri. È indispensabile 
che questa sia la prima istruzione del 
programma, poiché alcune istruzioni 
della subroutine dipendono dall'indi- 
rizzo di memoria in cui sono caricate. 

2) Digitate il seguente programmino, o 
un suo equivalente, che servirà per ca- 
ricare i codici decimali: 

9500 LET IMD= 16525 
9510 FOR 1 = 0 TO 118 
9520 PRINT (IMD + l);“ 

9530 INPUT COD 
9540 POKE (IND + I), COD 
9550 PRINT COD 
9560 NEXT I 

3) Digitate il comando GOTO 9500 e 
iniziate a caricare i codici decimali; 
ogni 22 codici caricati lo schermo sarà 
pieno, e vi verrà segnalato un errore 
5/9520. Non vi preoccupate: date 
CONT e NEWLINE, e potrete continua- 
re a caricare. 


Per specificare i valori dell’istruzione 
(e far disegnare la linea corrispondente 
allo ZX81), considerate i punti estremi 
del segmento come A = (X1,Y1) e 
B = (X2,Y2). 

X1,Y1,X2 e Y2 possono essere indiffe- 
rentemente numeri o variabili. Ricor- 
datevi che XI e X2 devono essere com- 
presi tra 0 e 63 (inclusi), mentre Yl e 
Y2 hanno come limite 0 e 43. 

Inserite ora nel programma queste 
istruzioni: 

(numero di linea) POKE 16514, XI 
(numero di linea) POKE 16515, Yl 
(numero di linea) POKE 16516, X2 
(numero di linea) POKE 16517, Y2 
(numero di linea) RAND USR 16525 

e potrete finalmente vedere effettuato 
il vostro comando DRAW. 


FF4D 

210 


LD 

HL, ba: 

FF50 

220 

LOOP 

RRC 

(HL) 

FF52 

230 


INC 

HL 

FF53 

240 


RRC 

(HL) 

FF55 

240 


INC 

HL 

FF56 

260 


RRC 

(HL) 

FF58 

270 


INC 

HL 

FF59 

280 


INC 

HL 

FF5A 

290 


INC 

HL 

FF5B 

300 


RLC 

(HL) 

FF5D 

310 


INC 

HL 

FF5E 

320 


RLC 

(HL) 

FF60 

330 


INC 

HL 

FF6 1 

340 


RLC 

(HL) 

FF63 

350 


INC 

HL 

FF64 

360 


DJNZ LOOP 

FF66 

370 


RET 



Indirizzo Codice esadecimale 


FF40 

01 

00 

03 

21 

00 

3D 

11 

00 

FF48 

FC 

ED 

B0 

60 

21 

00 

FC 


FF50 

CB 

0E 

23 

CB 

0E 

23 

CB 

0E 

FF58 

23 

23 

23 

CB 

06 

23 

CB 

06 

FF60 

23 

CB 

06 

23 

10 

EA 

C9 



Infine, il listato BASIC: 


40 CLEAR 64511: POKE 23607,251 

50 FOR i=15616 TO 16380 STEP 8 

60 LET b=2 
70 LET f = 3 
80 FOR j=i TO i+7 
90 LET d=PEEK j/b 
100 LET d =cì - 2 5 6 * ( d > 2 5 5 ) 

110 LET f = f-l 

120 IF f =0 THEN LET b=b/2: 

LET f =b+l 

130 POKE 48896+ j , d 
140 NEXT j 
150 NEXT i 
160 LIST 


Eccovi la lista dei codici: 


33 

130 

’ 64 

78 

35 

70 

35 

126 

145 

30 

0 

40 

8 

30 

1 

48 

4 

30 

255 

237 

68 

79 

35 

126 

144 

22 

0 

40 

8 

22 

1 

48 

4 

22 

255 

237 

68 

71 

35 

1 15 

35 

0 

24 

4 

22 

0 

96 

105 

237 

83 

136 

64 

125 

203 

63 

69 

197 

237 

75 

130 

64 

50 

138 

64 

34 

139 

64 

62 

155 

205 

178 

11 

58 

138 

64 

42 

139 

64 

237 

75 

130 

64 

237 

91 

136 

64 

132 

189 

56 

5 

149 

237 

91 

134 

64 

245 

120 

130 

71 

121 

131 

79 

241 

237 

67 

130 

64 

193 

16 

202 

201 
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Vendo ZX81 con alimentatore + 
cavetti + manuale ingl. + espan- 
sione da 32K RAM + libro 66 pro- 
grammi + guida allo ZX 81 + al- 
cuni listali: tutto in ottime condi- 
zioni a L. 300.000. Telefonare ore 
serali del sabato e della domenica. 
Giuseppe Rossi - Via Turi, 10 
70017 Putignano (Bari) - Tel. 
080/731740 

Cambio Software per Spectrum! 
Se abiti nella mia zona scrivimi 
senza inviare denaro e senza impe- 
gno! Moltiplica il tuo software: 
scambialo o compralo a prezzi ridi- 
coli! Scrivimi anche per scambio 
listati e idee! Fatti vivo! Ciao! 
Enrico Busto Via Campo Sporti- 
vo, 3 - 10061 Cavour (TÒ) 

Vendo o cambio 100 programmi 
per lo Spectrum 16/48K quasi tutti 
in LM. Attenzione!!! 20 programmi 
senza limite di scelta (!) solo L. 
30.000. Inviare vostra lista per 
scambi. Dispongo inoltre di un li- 
bro sulla ROM. 

Romano Bernarducci - Via Gorizia, 
13 - 05100 Terni (TR) - Tel. 
0744/85207 

Vendo Sinclair ZX81 nuova ROM 8 
Kbyte con cavetti per registratore 
alimentatore (con una cassetta di 
cinque videogiochi in regalo) a L. 
100.000 

Gianluigi Micheloto - Via Torino, 9 
-35100 Padova - Tel. 33085 

Vendo 1 0 giochi in LM (debug, ma- 
nie miner, 3D monster chase, carri 
armati, survival, alien invader, sot- 
tomarino ed altri) a L. 12.000 o 
scambio con zaxxon per Spec- 
trum. Telefona o scrivi senza impe- 
gno a: 

Marco Cattaneo Via Lago di Ne- 
mi, 21 - 20142 Milano - Tel. 
817053 

Vendo programmi per Spectrum a 
prezzi stracciati. Richiedi l’elenco 
gratuito con più di 300 program- 
mi. Scrivi o telefona a: 

Andrea Melesi - Via De Marchi, 25 
- 20052 Monza (MI) - Tel. 
039/321550 

Vendo ZX Spectrum ISSUE3 48K, 
febbraio 1984. per passaggio a si- 
stema superiore, con garanzia Re- 
bit, 50 programmi, manuale in ita- 
liano + programmazione origina- 
le. 

Falco Marcello - Via Torino, 3/7 - 
17100 Savona (SV) - Tel. (019) 
30570 


Cambio software per Spectrum 
posseggo oltre 400 programmi. 
Sono anche interessata al soft per 
IBM PC. 

Monica Mauro - C.so Montecucco, 
64 10100 Torino - Tel. 

011/613714 

Vendo e creo su ordinazione pro- 
grammi per ZX Spectrum 16/48K. 
Inviare L. 600 in francobolli per ri- 
cevere il catalogo completo. Per 
informazioni o richieste scrivere o 
telefonare a: 

Marco Zanchi - Via Vecchi Forno, 7 
- 20080 Caselle Lurani (Milano) 
Tel. 0371/96345 

ZX Spectrum 48K completo di ma- 
nuali in italiano e inglese cassetta 
dimostrativa in italiano, 100 pro- 
grammi (i più recenti), di cui 20 
Utilities, per passaggio a sistema 
superiore, a L. 500.000. 

Sergio Petitto - Via Issiglio, 1 1 
10141 Torino - Tel. 382070 

Programmi per ZX Spectrum invia- 
temi la lista dei vostri programmi e 

10 vi invierò la mia telefonate ore 
pasti. 

Francesco Grandomi - Via Aristo- 
bulo, 21 - 00124 Roma - Tel. 
6093450 

Novità vendo programmi per ZX 
Spectrum 16/48K a prezzi incredi- 
bili (max L. 5.000) giochi fantastici 
ant attack, atic atac, pengo, manie 
miner, orazio va a sciare. Chiedere 
listino gratuito. 

Gianluca Filacchione - Via Interno 
Marina, 60 - 88074 Crotone (CZ) - 
Tel. 0962/20534 

Per ZX81 eccezionale programma 

11 Q save, aumenta di 30-49 volte i 
tempi di caricamento, prezzo com- 
petitivo, non lasciatelo scappare, 
telefonare o scrivete a: 

Aldo Farneti - Via Boezio, 2 - 
20145 Milano - Tel. 313282 

A Bolzano, Trento e rispettive pro- 
vince, scambio vendo olte 120 pro- 
grammi per ZX Spectrum (tra cui 
tutti i migliori). Inviare francobollo 
per ricevere listino. 

Michele Valli - Via Passeggiata Ca- 
stani, 43 - 39100 Bolzano 

Vendo ZX81 1 K come nuovo vinto 
a un concorso. L’imballo compren- 
de cavetti registratore e TV + te- 
sto 66 programmi pe ZX81. Vendo 
tutto L. 100.000. Telefonate a: 
Luca Longo - Piazza Trento, 35 - 
Caltanissetta - Tel. 38566 


Cerco Sinclair Spectrum 48K op- 
pure Commodore CBM 64 purché 
in buono stato e perfettamente 
funzionante. Solo se affare scrive- 
re o telefonare ore pasti. 

Enrico Simeoli - Via Napoli, 13 - 
80126 Pianura (N A) - Tel. 7265870 

Compro, cambio o vendo pro- 
grammi per Spectrum. Ho quasi 
tutti i programmi chiedere e/o 
mandare lista e/o chiedere prezzi 
(comunque molto bassi). 

Giuseppe Cirillo - Via Livorno, 22 - 
80059 Torre del Greco (NA) 

Vendo Sinclair ZX81 -«-espansione 
16K + cavi a L. 150.000. 
Alessandro Barducci - Via Sarace- 
no, 39 - 44100 Ferrara - Tel. 
0532/39150 

Compro espansione di memoria 
per ZX81 16K RAM. Tratto possi- 
bilmente con la zona di Cagliari. 
Telefonare ore pasti 
Davide Itarras - Via Gian Battista 
Vico, 21 - 09045 Quartu S.E. (Ca- 
gliari) - Tel. 070/810167 

Vendo ZX81. 6 mesi di uso + 
espansione 18K RAM + alimenta- 
tore + 4 libri istruzioni + centipe- 
de, defender, regolo e molti altri 
pgrammi. Tutto a sole L. 275.000 
trattabili. Tutto perfettamente fun- 
zionante. Scrivere subito a: 

Mario Scavino - Lagustena, 136/20 
- 16131 Genova (GE) 

Cambio programmi di vario gene- 
re per ZX Spectrum 16/48K. Di- 
spongo di programmi di matemati- 
ca, statistica, ingegneria e molti 
giochi. Sono disposto anche all’ac- 
quisto e alla vendita. Inviate la vs. 
lista e riceverete il cambio la mia. 
Dario Durante - Via A. Meucci, 22 - 
64022 Giulianova (TE) 

Cambio pragrammi per Sinclair ZX 
Spectrum. Ne ho una quarantina. 
Cerco espansione per 48K a prezzo 
ragionevole. 

Massimo Porcari - Via Calatafimi, 
12 bis - 43100 Parma - Tel. 94497 


Vendo penna ottica per Spectrum 
della "Nuova Newel’’ con software 
e manuale in italiano. Programmi 
a L. 3.000 ciascuno oppure 10 per 
L. 24.000. Tre chiavi per duplicare 
anche senza header a L. 10.000 
Marco Sivori - Via Barchetta, 18/9 - 
16162 Bolzanetto (GE) - Tel. 
010/403118 


Cambio programmi per ZX Spec- 
trum 16/48K. richidetemi la lista o 
inviatemi la vostra risposta, assi- 
curata e rapida. Scrivere o telefo- 
nare a: 

Liviano Vitali - Via Firenze, 29/3 - 
41035 Massa Finalese (M07 - tei. 
0535/99700 

Vendo urgentemente ZX81 + 
espansi one 64K + stampante + 2 
alimentatori + ingresso joy + 
molti programmi in LM tra cui 
scacchi, pacman, invaders, centi- 
pede e molti listati il tutto come 
nuovo a L. 500.000 trattabili: assi- 
curo assistenza software. 

Vincenzo Aversano - Via Robino, 
96 G/3 - 16141 Genova - Tel. 
010/882830 

Cambio software per ZX Spectrum. 
Novità inglesi. Inviatemi la vostra 
lista e vi risponderò subito. 

Luca Lachello - Via Guali. 119 - 
10135 Torino - 011/613810 

Vendo 180 programmi originali 
per Spectrum a L. 250.000 tra cui: 
chequered, flag, manie miner, V(J- 
3D richiedete il catalogo, allegan- 
do L. 500 a: 

Patrizio Basile Zona Ardizzone 
pai. 13/a - 95047 Paternò (CT) 

Super programma totocalcio in 
LM per elaborazione sistemi inte- 
grali con lo ZX Spectrum 48K oltre 
al solito numero di segni 1X2 o dei 
consecutivi eliminazione di segni 
indesiderati sulle 13 partite e nu- 
mero colonne sistema elaborato. 
Gianbattista Gilberti - Via B. Pa- 
scal, 23 - 25050 Passirano (BS) 

Vendo tastiere professionali per 
Spectrum e ZX81 L. 49.000. Tra- 
sforma il tuo giocattolo in un vero 
computer. Allega il bollo, riceverai 
informazioni dettagliate. 

Marino Severi - Piazza Isei, 28 
47023 Cesena (FO) - Tel. 
0547/20890 

Per la 

pubblicazione 
dei vostri 
annunci 
utilizzare il 
coupon a pag. 
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Per collaborare a SUPERSINC 


La maggior parte dei seguenti suggerimenti ha lo scopo di migliorare l’accuratezza e la velo- 
cità di pubblicazione di un articolo; rispettando questi consigli si accresceranno le probabi- 
lità che un vostro lavoro venga pubblicato. La rivista è interessata ad articoli e programmi 
riguardanti la linea Sinclair. Siamo più interessati al contenuto di un articolo piuttosto che 
al suo stile, e soprattutto gli articoli devono essere chiari ed esaurienti. La seguente guida 
permetterà che le vostre buone idee e i vostri programmi vengano più facilmente accettati 
per la pubblicazione: 


1 l’angolo superiore sinistro della prima pagi- 
na dovrà contenere: nome, cognome, indi- 
rizzo, numero telefonico, codice fiscale e data di 
spedizione. 

2 l’angolo superiore destro della prima pagina 
dovrà contenere il nome del computer al 
quale il lavoro si riferisce, unitamente alla confi- 
gurazione richiesta (memoria occorrente, even- 
tuali periferiche e così via). 

3 il titolo sottolineato dell’articolo dovrà ini- 
ziare a circa due terzi in altezza della prima 
pagina. 

4 le pagine seguenti potranno essere battute 
normalmente, con la condizione che l’ango- 
lo superiore destro contenga un’abbreviazione 
del titolo e del cognome, unitamente al numero 
di pagina progressivo. Per esempio, Horace 
Goes... /Brambilla/2. 

5 tutte le linee del testo dell’articolo dovranno 
essere battute con spazio 2 o spazio 3, e un 
margine di circa un centimetro dovrà trovarsi ad 
entrambi i lati dello scritto. 

6 dovrà essere usata una carta formato A4 e lo 
scritto dovrà occupare un solo lato del fo- 
glio (caratteri maiuscoli e minuscoli). 

7 i fogli dovranno essere uniti con una clip. 

8 avendo intenzione di spedire più di un arti- 
colo, questi dovranno essere inviati separa- 
tamente insieme alla rispettiva copia su suppor- 
to magnetico. 

9 programmi brevi (meno di 20 linee) potran- 
no essere inseriti nel testo, mentre program- 
mi più lunghi dovranno essere listati separata- 
mente. È ESSENZIALE per noi disporre di una 
copia del programma registrata più volte su 
supporto magnetico, su entrambi i lati dello 
stesso. È preferibile usare nastri di buona quali- 
tà e di lunghezza non eccessiva; la cassetta o la 
cartuccia per Microdrive dovranno essere eti- 
chettati con il nome dell’autore, il titolo dell’ar- 
ticolo, il computer interessato e soprattutto le 


eventuali espansioni richieste. Come suggeri- 
menti di programmazione, si consiglia di usare, 
per esigenze di stampa listati, le istruzioni INK, 
PAPER, INVERSE piuttosto che scrivere diretta- 
mente in INVERSE VIDEO. Gn rapido controllo 
dei programmi per operare queste sostituzioni 
sarà da noi estremamente apprezzato. 

per maggior chiarezza, all’interno dell’ar- 
ticolo è conveniente usare caratteri maiu- 
scoli riferendosi a istruzioni BASIC (esempio 
RETGRN, LIST, RND, PRINT etc.). Se si desidera 
evidenziare una parola, è preferibile sottolinear- 
la piuttosto che scriverla in carattere maiuscolo. 

1 *| gli articoli ed i programmi potranno avere 
X qualsiasi lunghezza — da una routine di 
una sola linea fino a programmi molto comples- 
si. 

volendo includere fotografie, queste do- 
vranno essere in formato 24 x 36, o 6 x 6, 
in bianco e nero o diapositive. 

non prenderemo in considerazione artico- 
li che siano stati sottoposti ad altre case 
editrici. 

il compenso per la collaborazione presta- 
ta sarà commisurato alla complessità e 
all’interesse del programma (da un minimo di L. 
50.000 a un massimo di L. 300.000). Il paga- 
mento è effettuato in caso di pubblicazione del 
lavoro. 

il materiale ricevuto e non pubblicato non 
verrà restituito. 

Spedite i vostri lavori a: 

SGPERSINC 
Via Rosellini, 12 
20124 Milano 

e saremo lietissimi di pubblicare i contributi mi- 
gliori. 

La Redazione 
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SUPERSINC LIBRI 

CEDOLA DI ORDINAZIONE • LIBRI 

da compilare e spedire in busta chiusa a 

TechnoClub • Via Rosellini, 12 - 20124 Milano Tel. 6888228 

Ordino i seguenti libri per un importo totale di L + L. 2.000 

come contributo fisso per spese di spedizione 


Cod 

Cod 

Cod. 

Cod 

Cod 

Cod. 

□ Contanti allegati 

Assegno allegato n° 


□ Ho spedito l’importo a mezzo vaglia postale 


□ Ho versato 1’importo sul ccp. n° 19445204 intestato a Technoclub • Milano 

□ Pagherò in contrassegno al postino al ricevimento dei volumi (valido solo per 
i soci in Italia) 

V 


\ 

THE ZX SPECTRUM AND HOW 

TO GETTHE MOST FROM IT cod. BGRC002 L. 14.900 

THE SPECTRUM BOOK OF GAMES cod. BGRC003 L. 14.900 

Nome 

Cognome 

Via 

Città C.A.P Prov 

Se richiesta fattura: 

Cod. F. e P. Iva 

Data 

Firma 

Per i soci residenti all’estero — pagamento anticipato (vaglia o versamento su ns. 
ccp) 

J 


SUPERSINC SOFTWARE cosmÌc cruiser 

CEDOLA DI ORDINAZIONE • cassetta 

da compilare e spedire in busta chiusa a 

TechnoClub • Via Rosellini, 12 • 20124 Milano Tel. 6888228 

Ordino le seguenti cassette per un importo totale di L + L. 2.000 

come contributo fisso per spese di spedizione Nome 

Cod Cod Cod Cognome 


cod. DIGMS08 L. 14.000 
cod. DIGMS09 L. 14.000 


Cod Cod Cod. 

□ Contanti allegati □ Assegno allegato n° 


Via 

Città C.A.P Prov. 


□ Ho spedito l’importo a mezzo vaglia postale 

□ Ho versato l’importo sul ccp. n° 19445204 intestato a Technoclub - Milano 


Se richiesta fattura: 
Cod. F. e P. Iva 

Data 

Firma 


□ 


V 


Pagherò in contrassegno al postino al ricevimento delle cassette (valido solo 
per i soci in Italia) 


Per i soci residenti all’estero — pagamento anticipato (vaglia o versamento su ns. 
ccp) 


J 


r 

SUPERSINC 

INPUT/OUTPUT 




r 


"\ 


La rubrica INPUT/OUTPUT è gratuita ed aperta a 
tutti i lettori. Chi desidera comprare, vendere o 
cambiare hardware o software può inviare il ta- 
gliando a J.soft - Via Rosellini, 12 • 20124 MILANO 


SUPERSINC è bello, però... (ovvero suggerimenti, 
idee, critiche, richieste e tutto ciò che vi passa per 
la testa). 


□ COMPRO □ VENDO □ CAMBIO 

□ ZX80 □ ZX81 □ ZX Spectrum □ PERIF. □ SOFTWARE 


Nome Cognome 

Via C.A.P 

Città Tel 

L _J 


Nome 
Via 


V 


Città. 


Cognome 

C.A.P 

Tel 

LÀ 


i 


gp 100 vc/riAiy 


stampante grafica “dedicata” per 
computer Commodore 64 e vie 20 


SEIKOSHA 





Dal “De- 
sign” sempre pia- 
cevole e dal prezzo in- 
credibilmente contenuto, la 
qualità offerta da questa supere- 
conomica è esattamente quella 
che ci si attende da una stampante 
con il nome Seikosha! 

GP100 è stata infatti la prima stam- 


pante ad avvi- 
cinare il mondo 
dell’home compu- 
ting con costi pro- 
porzionati e presta- 
zioni ineccepibili in ter- 
mini di qualità di stampa 
e affidabilità; questo come risultato di 
un’economia di scala e non di progetto. 


Caratteristiche: 

• Stampante ad impatto a matrice di punti 
da 80 colonne 

• Matrice di stampa 5x7 

• Percorso di stampa monodirezionale (da 
sinistra a destra) 

• Capacità grafiche con indirizzamento del 
singolo dot 

• Possibilità di ripetizione automatica di un 
carattere grafico 

• Velocità 30 caratteri/secondo 


• Caratterizzazione: 10 cpi e relativo espanso 

• Interfaccia: specifica per Commodore VIC 
20 e 64 

• Alimentazione carta: trattori (larghezza 
modulo continuo variabile da 4,5 a 10”) 

• Stampa 1 originale e 1 copia 

• Set di 116 caratteri ASCII 

• Consumo 8W (standby) o 20W (stampa) 

• Peso 4,5 KG 

• Dimensioni: 

234,5 (prof.) x 420 (largh.) x 136 (alt.) mm. 

• Nastro: singolo colore su cartuccia dedicata 


• • 




E IN EDICOLA 



PAPERSOFT, 

il primo settimanale di software 
per il tuo Home e personal computer 
a sole 1.000 Lire. 


J. Soft Editrice - Via Rosellini, 12 • 20124 Milano - Tel. 683797 6888228 


